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ABSTRACT 


•  v  ■ 


A  Bult i-attribute  utility  assessment program  is 


developed  which  can  handle  consequences  composed  of  two 


attributes.  It  handles  four  particular  cases  of  utility 


independence  properties:  additive  independence,  mutual 


utility  independence,  utility  independence  in  one  direction, 


and  no  independence  properties.  A  two-attribute  consequence 


space  was  chosen  particularly  for  the  ability  to  represent 


the  multi-attribute  utility  function  graphically  in  three 


dimensions,  from  one  of  eight  possible  viewpoints. 


utilities  of  two  Air  Force  mission  planners  were  assessed  to 


determine  the  feasibility  of  using  probability  of  arrival 


and  probability  of  target  destruction  as  factors  for  mission 


success.  Based  on  the  results,  it  appears  as  though  multi¬ 


attribute  utility  theory  would  be  a  definite  help  to  Air 

/  -T  ,  ) 

Force  mission  planning.  i  ~  y  _ 
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1.  INTRODUCTION 


Utility  theory  is  a  relatively  new  methodology  for 


decision  making.  Relatively  new,  that  is,  when  compared  to 


probability  theory  from  which  it  gained  its  foundation.  The 


basic  tenets  of  utility  theory  have  been  around  for  some 


fifty  years,  and  it  has  been  applied  to  a  number  of  various 


decision  making  problems.  In  many  cases,  it  has  been 


grouped  with  other  techniques  for  decision  making  under  the 


general  heading  of  decision  analysis. 


Utility  theory  provides  the  means  for  characterizing  a 


decision  maker’s  preferences  over  the  range  of  some 


attribute. X  Usually  these  preference  values  are  represented 


on  a  scale  from  0  to  1.  The  ideas  behind  utility  theory 


have  been  extended  to  decision  making  problems  in  which  more 


than  one  attribute  is  used  to  characterize  possible 


alternatives,  and  this  extension  is  termed  multi-attribute 


utility  theory. 


Stated  simply,  multi-attribute  utility  theory  attempts 


to  produce  a  map  of  a  decision  maker’s  preference  values 


(utility)  for  various  alternatives  of  a  problem  in  a 


systematic  fashion.  These  alternatives  are  generally 


represented  by  more  than  one  attribute  (if  only  one 


attribute  is  used,  simple  utility  theory,  and  not  multi¬ 


attribute  utility  theory,  may  be  used).  This  map,  or 


utility  function  can  then  help  the  decision  maker  in 
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determining  the  utility  of  other  potential  outcomes  of  the 
problem . 

It  is  not  an  easy  task  for  a  decision  maker  to  make 
choices  between  alternatives  characterized  by  many 
attributes,  or  when  the  attribute  values  vary  only  slightly 
between  alternatives.  However,  depending  on  the  utility 
independence  properties  existing  between  attributes,  it  may 
be  possible  to  decompose  the  problem  into  the  assessment  of 
utility  functions  for  individual  attribute  values,  which  can 
later  be  combined  in  an  appropriate  fashion.  After 
combining  the  parts,  the  overall  utility  function  for 
different  possible  alternatives  can  be  used  to  choose  the 
best  possible  outcome  by  maximizing  the  expected  utility. 
It  has  been  shown  that  by  choosing  the  alternative  which 
produces  the  greatest  expected  utility,  consistent  decision 
making  is  upheld.  (Keeney  1976,  p.  131) 

The  advantages  of  utility  theory  and  multi-attribute 
utility  follow  directly  from  their  implementations.  First, 
they  provide  a  structured  framework  for  a  decision  maker  to 
operate  under,  and  decompose  a  problem  into  manageable 
subproblems.  They  also  provide  quantitative  maps  of  a 
decision  maker’s  qualitative  preferences,  thereby  lending 
objectivity  to  solutions  which  might  otherwise  have  been 
totally  subjective  in  nature.  Finally,  these  theories  can 
be  used  to  compare  non-similar  items. 
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After  explaining  the  terninology  and  assumptions  used 
in  multi-attribute  utility  theory,  we  will  describe  a 
computer  program  we  developed  to  handle  problems  whose 
alternatives  can  be  characterized  by  two  attributes.  Though 
simple  in  form,  its  potential  usefulness  is  demonstrated  by 
its  application  to  a  decision  making  task  in  tactical  Air 
Force  mission  planning. 


2.  MULTI-ATTRIBUTE  UTILITY  THEORY 


Multi-attribute  utility  theory  is  quite  powerful  when 
properly  used.  It  can  provide  an  extreaely  structured 
framework  for  solving  difficult  choice  problems  involving 
many  attributes.  In  order  to  exploit  its  usefullness,  an 
understanding  of  the  terminology  and  methodology  behind  it 
is  necessary. 

2.1 Terminology  and  Assumptions 

The  terminology  used  in  this  paper  is  consistent  with 
that  of  Keeney  and  Raiffa  in  their  book  titled,  Decisions 
with  Mu 1 1 i pi e  0 b J  e  c  t i y e  s :  preferences  an  d  V  a 1 u e  Trad e o  f  f s 
(1976).  Assumptions  are  taken  from  the  class  notes  of  Dr. 
James  M.  Tien.  The  explanations  are  fairly  cursory  since  we 
are  not  interested  in  proving  the  theory,  merely  in 
introducing  the  concepts  which  are  used  later  in  the 
computer  program. 

In  decision  making,  it  is  frequently  the  case  that 
preferences  are  expressed  concerning  various  outcomes.  In 
cases  where  there  is  no  preference  between  outcomes, 
indifference  expresses  this  relation.  A  statement  of  the 
form: 


A  >-  B 


is  read  as  A  is  preferred  to  B.  Similarly, 
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is  read  as  A  is  indifferent  to  B.  These  relations  are 


transitive. 


A  coBBon  representation  of  a  choice  in  utility  theory 


is  called  a  lottery,  and  it  has  the  fora: 


where  p  is  the  probability  of  consequence  Ai  and  (1  -  p)  is 


the  probability  of  consequence  Kz  .  Indifferent  lotteries 


allow  siBplifying  coBpound  lotteries  into  a  siBple  lottery: 


Pi  +P2  P5 


P3  +P2  Pe 


Bach  consequence,  Ai,  is  indifferent  to  soBe  lottery 


involving  the  Bost  preferred  (A*)  and  least  preferred  (Ao) 


consequence.  That  is,  there  exists  a  Qi  such  that: 


Ai  — '  [QiAi,  (0)A2,  0(A3),...,(1  -  Oi)An] 


Ai  is  defined  as  the  certainty  equivalent  of  lottery  Ai, 


since  it  can  be  interpreted  as  the  selling  price  of  a 


lottery,  given  that  you  own  it. 


In  any  lottery,  the 


if 

.1 


t', 


r 


I 
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consequence  Ai,  aay  be  replaced  by  Ai  without  altering  the 
preference  of  that  lottery: 

[PiAi,P2A2,...,PiAi,...PnAn]  [PiAi,P2A2,...,PiAi,...PnAn]. 
Both  outcomes  above  are  indifferent  to: 

[QAi,  (l-Q)An], 

where 

Q  =  PiQi  +  P2Q2  +  P3Q3...+  PnQn, 

and  Qi  =  1  and  Qn  =  0.  We  can  then  say,  for  any  two 

lotteries,  L  and  L’  described  as: 

L  =  [QAi , ( l-Q)An]  L’  =  [Q’Ai,  (l-Q)’An) 

that  L  ^  L’  iff  Q  >  Q* .  Since  Ai  can  be  substituted  for  the 
lottery,  Ai  Aj  iff  Qi  >  Q j .  Since  we  want  the  utility  of 
Ai  to  be  greater  than  the  utility  of  A J ,  we  let: 

U(Ai)  =  Qi. 

Now,  for  any  lottery,  L,  the  utility  is: 

n 

U(L)  =  Q  =  X  PiQi. 

i  >  1 

Since  utilities  are  indicators  of  preference,  not 
absolute  measurements,  they  are  generally  normalized  to  the 
range  0  to  1.  This  equates  to  a  utility  of  0  for  the  least 
preferred  alternative  ( Ao )  and  a  utility  of  1  for  the  most 
preferred  alternative  (A*).  It  is  also  often  assumed  that 


■onotonicity  (the  function  increases  or  decreases  in  one 
direction)  is  characteristic  of  utility  functions. 

Increasing  nonotonicity  is  usually  the  case  for 
attributes  like  money,  happiness,  beauty,  etc.,  where  more 
is  generally  better.  Negative  attributes  such  as  expense, 
pollution,  and  crime,  on  the  other  hand,  can  ordinarily  be 
characterized  by  monotonically  decreasing  functions.  Keeney 
(1976)  shows  that  transformation  between  monotonically 
increasing  and  monotonically  decreasing  functions  is 
possible  simply  by  changing  the  attributes  being  measured. 
For  instance,  response  time  measured  in  minutes  has  a 
decreasing  utility  function  (shorter  response  times  are 
better),  but  it  can  be  changed  to  minutes  saved  in  response 
time,  where  the  more  minutes  saved,  the  better.  (Keeney 
1976,  p.  141) 

This  brief  overview  of  terms  and  assumptions  used  in 
multi-attribute  utility  theory  is  sufficient  to  allow  the 
reader  to  follow  the  material  in  the  next  section,  which 
covers  assessment  procedures  for  determining  preferences.  A 
deeper  treatment  of  these  topics  can  be  found  in  the  Keeney 
and  Raiffa  text  mentioned  previously. 

2.2  Utility  Asaiessment 

One  of  the  more  critical  areas  of  multi-attribute 
utility  theory  is  obtaining  information  from  a  decision 
maker  to  produce  his  utility  function.  Some  decision  makers 
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are  unfaailiar  or  uncomfortable  with  the  ideas  of  utility 
theory  or  perhaps  even  probability.  Some  may  exhibit 
inconsistency  in  their  decision  making  processes  without 
being  aware  of  it.  It  is  therefore  imperative  that  methods 
exist  to  phrase  the  problem  in  terms  meaningful  to  the 
decision  maker. 

According  to  Johnson  and  Huber  (1977),  common 
methodologies  which  have  been  used  can  be  grouped  into  five 
mutually  exclusive  categories:  ranking  methods,  category 
methods,  direct  methods,  gamble  methods,  and  indifference 
methods.  (Johnson  1977,  pp.  312  -  315)  A  general 

description  of  each  method  is  given  below,  based  on  their 
assessment  of  the  methods. 

i 

I 

I 

2.2.1  Ranking  Methods  \ 

k 

Ranking  methods  are  intuitive  to  many  decision  makers. 

Given  a  number  of  alternatives,  the  decision  maker  assigns 
an  order  to  them  such  that  the  least  preferred  alternative 
is  ranked  lowest,  and  the  most  preferred  alternative  is 
highest.  This  method  works  best  when  the  alternatives  are 
few  in  number.  It  is  difficult  to  apply  to  alternatives 
composed  of  more  than  one  attribute.  Because  the  levels  of 
each  attribute  may  vary,  it  is  not  always  easy  to  assign  a 
preference  in  multi-attribute  problems.  l 

I 

I 

I 

( 

I 

( 

( 


( 

( 
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2.2.2  C  a  t  e  f o  r  y  Met  hods 

These  aethods  only  allow  approxiaat ions  of  worth  since 
alternative  preference  values  are  restricted  to  pre¬ 
specified  ranges  or  categories.  While  less  exact  than 
direct  methods  (see  2.2.3),  it  is  aore  likely  easier  on  the 
decision  maker  to  group  alternatives  in  this  aanner. 


2.2.3  D irec t Methods 

Direct  methods  have  the  decision  maker  assign  worths 
(or  utilities)  directly  to  the  alternatives.  This  is  an 
extremely  difficult  procedure  when  the  alternatives  are 
characterized  by  more  than  one  attribute.  If  it  were  not, 
decision  makers  would  need  no  help  in  determining  which 
alternative  to  choose. 


2.2.4  Indifference  Methods 

These  methods  are  can  be  viewed  as  extending  gamble 
methods  (see  2.2.5)  to  the  multi-attribute  case,  without 
risk.  They  require  choosing  a  level  of  an  attribute  to  make 
a  certain  indifference  relation  hold.  For  example,  the 
decision  maker  is  asked,  ”What  level  of  dollars  will  make 
you  indifferent  to  the  outcomes  below?",  where  the  outcomes 
are  expressed  in  terms  of  the  ordered  pair  (dollars,  hours): 

(  ?  ,  24  hours)  (  $25  ,  50  hours) 

This  technique  is  employed  in  the  computer  program  to 
determine  scaling  constants  between  the  two  attributes. 


VC 
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2.2.5  Gaable  Methods 

These  assessment  methods  require  a  decision  maker  to 
either  assign  probability  values  to  a  lottery  so  as  to 
equate  its  worth  with  a  certain  given  outcome,  or  given  a 
lottery  with  fixed  probabilities,  determining  a  certainty 
equivalent  for  the  lottery.  Since  these  methods  are  also 
the  ones  employed  by  the  multi-attribute  utility  program 
developed,  they  are  considered  in  more  detail  below. 

As  an  example  of  the  first  type,  with  variable 
probabilities,  suppose  a  decision  maker  is  offered  a  choice 
between  $30  and  the  following  lottery  (with  dollars  as  the 
attribute  measure): 

$100 


He  must  then  choose  a  value  for  p  such  that  the  indifference 
relation  is  valid.  If  this  value  is,  say,  0.6,  then  for 
consistency,  this  value  for  p  must  mean  that  the  utility  of 
receiving  $30  for  certain  is  equal  to  a  0.6  chance  at  $100 
and  a  0.4  chance  of  receiving  $0: 

U($30)  =  0.6{$100)  +  0.4($0) 
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Since  U($100)  is  1  and  U($0)  is  0,  the  utility  of  $30  i: 


obviously  0.6.  Continuing  in  this  fashion,  the  utilities  of 


various  consequences  can  be  assessed. 


This  type  of  gamble  is  extremely  similar  to,  but  not  as 


easy  on  the  decision  maker  as  the  second  type,  keeping  the 


value  of  p  fixed.  To  illustrate,  suppose  a  decision  maker 


is  offered  a  lottery  between  receiving  $100  with  probability 


p,  and  probability  (1  -  p)  of  receiving  $0.  To  make  the 


decision  easiest,  the  value  for  p  is  fixed  at  0.5.  This 


way,  a  decision  maker  can  look  at  the  lottery  as  a  fifty- 


fifty  chance  between  $100  and  $0: 


$100 


He  is  then  asked  what  amount  of  dollars  he  would  have  to 


receive  for  certain  to  make  him  indifferent  to  the  lottery 


(i,e.,  willing  to  "sell”  it).  Perhaps  he  would  give  up  the 


lottery  for  $25. 


Using  the  formula  for  utility 


determinat ion : 


U($25)  =  (0.5)U($100)  +  (0.5)U($0) 


U($25)  =  (0.5)  (1)  +  (0.5)  (0)  =  0.5 


To  continue,  the  next  lottery  offered  could  be: 


V 


I 
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exhibiting  risk  neutrality.  If  the  curve  falls  above  the 
expected  value  line,  he  is  risk  averse;  below  it,  he  is  risk 
prone.  These  characteri2ations  change  between  decision 
■akers  and  even  for  the  saae  decision  maker,  depending  on 
their  current  asset  positions  and  the  ranges  of  the 
attributes . 

By  structuring  the  assessaent  procedure  in  this 
fashion,  the  decision  maker  has  a  better  chance  of 
expressing  his  utility  in  a  consistent  manner.  If  certain 
utility  independence  properties  hold  (discussed  in  the  next 
section),  this  method  of  assessing  utility  can  be  extended 
to  the  multi-attribute  case. 

2.3  Utility  Independence  Properties 

If  it  can  be  established  that  certain  strong  utility 
independence  properties  exist  between  attributes,  the 
process  of  assessing  a  multi-attribute  utility  function  is 
greatly  simplified.  This  is  because  marginal  utility  curves 
for  each  single  attribute  can  be  combined  in  ways  consistent 
with  the  utility  independence  properties,  and  the  assessment 
procedure  can  be  done  for  the  attributes  individually.  The 
four  possible  combinations  of  utility  independence 
properties  are  called:  mutual  utility  independence, 
additive  independence,  utility  independence  in  one 
direction,  and  no  utility  independence.  Again,  proofs  of 
these  properties  can  be  found  in  Keeney  and  Raiffa’s 
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p  e  c  i  Sf  i  o  n  ^  M  Multiple  Object  ivee  (1976).  The  intent 
here  is  to  sunmarize  the  information  as  it  applies  to  the 
computer  program  developed.  This  is  also  why  the  discussion 
is  limited  to  the  two  attribute  case;  each  property  can 
however,  be  extended  to  problems  whose  consequences  can  be 
characterized  by  more  than  two  attributes. 


2 .3 . 1 Mutual  Uti 1 ity  Independence 


This  form  of  utility  independence  is  valid  if  the 
utility  values  for  one  of  the  attributes  stay  constant  over 
the  entire  range  of  the  other’s  values.  For  example,  if  the 
following  lottery  were  offered  (with  z  representing  a 
specific  value  for  the  second  attribute): 


(100,  z  ) 


(  0  ,  z  ) 

then  no  matter  what  z  level  is  specified,  the  value  for  the 
first  attribute  would  not  change.  This  implies  that  the 
first  attribute  is  utility  independent  of  the  second.  It 
would  also  have  to  be  valid  in  the  reverse  case  (i.e.,  that 
for  any  specific  value  for  the  first  attribute,  the  value 
for  the  second  attribute  would  remain  constant)  for  the 
attributes  to  be  mutually  utility  independent.  When  this 


property  holds,  it  becomes  possible  to  combine  the  utilities 


of  the  attributes  to  develop  the  overall  utility  function. 


If  y  is  the  first  attribute  and  z  is  the  second,  then: 

U(yiZ)  =  kvUvCy)  +  kzUz(2)  +  Kv  z  Uv  ( y )  Uz  (  z )  , 

where  the  k  constants  are  used  to  maintain  consistent 
scaling. 

2.3.2  Additive  Independence 

Additive  Independence  is  the  strongest  form  of  utility 
independence.  It  is  also  probably  the  least  likely 

relationship  existing  between  attributes.  Additive 

independence  in  the  two  attribute  case  specifically  entails 
that  preference  values  for  one  attribute  are  constant  over 
the  entire  range  of  the  second  attribute  and  vice  versa 
(mutually  utility  independent).  In  addition,  the  decision 
maker  must  be  indifferent  to  the  following  two  lotteries 
(with  y  as  the  first  attribute  and  z  as  the  second  and 
specific  values  of  either  are  indicated  by  subscripts): 

y3  ,  Z3  y3  ,  Z4 

y4  ,  Z4  y4  ,  Z3 

It  is  also  a  condition  that  (y3,  Z3  )  not  be  indifferent  to 
either  ( ys ,  Z4 )  or  ( y4 ,  Z3 ) .  When  these  conditions  are  met, 
it  is  possible  to  combine  the  utilities  of  the  attributes  in 
the  following  manner: 

U(y,z)  =  kvUv(y)  +  kzUz(z) 


where  the  k*s  again  represent  scaling  factors. 

2.3.3  Utility  Independence  in  One  Direction 

It  may  be  possible,  in  the  two  attribute  case,  for  one 
attribute  (y),  to  be  utility  independent  of  the  other  (z), 
but  (z),  may  not  be  utility  independent  of  (y).  If  this  is 
true,  it  is  said  that  the  attributes  are  utility  independent 
in  the  y  direction.  The  direction  of  utility  independence 
may  vary,  that  is  if  z  is  utility  independent  of  y,  the 
attributes  are  utility  independent  in  the  z  direction. 
(Note  that  if  y  is  utility  independent  of  z  and  z  is  utility 
independent  of  y,  then  mutual  utility  independence  holds). 
If  the  attributes  are  such  that  z  is  utility  independent  of 
y,  then: 

U(y,z)  =  U(y,zo)[l  -  U(yo,z)]  +  U(y,Zi)U(yo,z), 
and  for  y  utility  independent  of  z: 

U(y,z)  =  U(yo,z)[l  -  U(y,zo)]  +  U(yi , z)U(y, Zo ) . 

These  formulas  also  provide  close  approximations  when 
neither  attribute  is  utility  independent  of  the  other. 
(Keeney  1976,  p.  253) 

2.3.4  No  Utility  Indepen^ 

It  may  be  possible  that  none  of  the  previously  discussed 
strong  utility  independence  properties  hold.  In  other 
words,  none  of  the  previously  mentioned  properties  can  be 
exploited  to  easily  assess  a  decision  maker’s  utility 


function.  The  implications  here  are  more  complex  than  in 
the  other  cases.  In  the  worst  situation,  a  decision  maker 
has  to  resort  to  assigning  utilities  directly  to  various 
outcomes,  and  the  process  in  painful,  difficult  and  time 
consuming.  The  gamble  method  used  throughout  the  computer 
program  offers  little  support  to  a  decision  maker  if  no 
utility  independence  properties  hold  and  direct  assessment 
must  be  used.  However,  there  is  a  possibility  the 

attributes  can  be  transformed  into  other  attributes  which 
may  exhibit  some  strong  utility  independence  properties.  It 
may  also  be  possible  to  decompose  the  attributes  over  a 
subset  of  their  ranges  to  get  the  same  result.  At  least,  in 
the  latter  case,  direct  assessment  of  utility  may  only  have 
to  be  done  for  fewer  outcomes. 

Utility Function Determination 

After  determining  which  utility  independence  properties 
hold,  the  decision  maker’s  utility  over  various  outcomes  is 
obtained  by  assessing  the  appropriate  utility  or  marginal 
utility  curves  for  the  attributes  and  combining  them 
according  to  the  formulas  provided  previously.  The  utility 
function  itself  can  be  obtained  in  two  ways. 

2.4.1  Curve  F i 1 1 i ng  Approach 

Once  a  decision  maker  has  provided  sufficient  data  points, 
a  curve  can  be  fit  through  these  points  by  various  curve 
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fitting  algorithms.  Traditionally,  because  of  time  and 
difficulty  and  the  ability  to  exploit  properties  of 
consistency  and  monotonicity  of  the  utility  functions,  this 
approach  has  not  received  wide-spread  use.  Instead,  what  is 
more  common  is  pre-specification  of  the  form  of  the  utility 
function. 


2.4.2  Pr e-Spec i f i ed  Fo rm 

A  good  discussion  of  this  technique  comes  from 
Spetzler  (1968)  (who  credits  Pratt  1965,  pp.  4-16),  he  shows 
that  ”  a  mathematical  form  of  the  utility  function  is 
assumed  prior  to  plotting  of  the  data.  The  fit  of  this  form 
is  then  tested.”  (Spetzler  1968,  p.  284)  Obviously,  for  a 
program  to  consider  all  possible  forms  of  utility  functions 
is  unreasonable  and  disadvantages  of  this  approach  include 
having  no  reasonable  match  for  the  data  points.  According 
to  Spetzler  (1968),  another  disadvantage  is  prejudgement  of 
behavior  patterns,  but  he  says  this  can  be  overcome  by 
varying  the  form  of  the  function  and  increasing  the  degrees 
of  freedom. 

Spetzler  (1968)  also  reiterates  Pratt's  (1965)  findings 
that  in  choosing  utility  forms,  certain  theoretical 
considerations  give  indications  of  form  as  follows; 

Let  U(x)  =  utility  value  of  x  over  the  range  in 
consideration . 

r(x)  =  -U"(x)/U’(x)  =  measure  of  local  risk  aversion 
as  shown  by  Pratt.  Then,  if  the  following 
hold; 


2)  the  form  should  be  continuous  and  twice 
differentiable,  and 

3)  r(x)  should  be  constant  or  monotonical ly 
decreasing  i.e.,  r*(x)  <  0  over  the  range 
of  X,  (Spetzler  1968,  p.  290) 

then  several  conaon  utility  function  foras  can  be  used. 

Coaaon  Utility  Function  Foras. 

As  Bulti-attribute  utility  theory  has  been  applied  to 
various  decision  analytic  tasks  —  nuclear  power  plant  site 
selection  (Keeney  1975),  utility  coapany  power  systea 
engineering  evaluation  (Johnson  1977),  etc  —  various  curves 
have  been  found  to  be  representative  of  a  decision  aaker's 
utility  function.  These  functions  are  contained  in  Figure 
2.1  and  taken  froa  Bolinger  (1978),  Stiapson  (1981),  and 
Keeney  ( 1976) . 

These  curves  .  can  represent  several  decision  asking 
patterns,  indicating  risk  neutrality,  risk  aversion 
(constant  or  decreasing)  and  risk  proneness.  By  assessing  a 
decision  aaker’s  preferences  for  various  levels  of 
attributes,  one  of  the  pre-specif ied  curves  which  best 
Batches  his  curve  can  be  used  as  an  approxiaation  of  utility 
function.  The  aaount  of  error  allowed  in  fitting  these  pre¬ 
specified  curves  needs  to  be  chosen  by  trading  off  the  tiae 
to  find  which  specific  fora  of  a  curve  best  Batches  the 
decision  aaker’s  data,  and  how  closely  each  of  the  specific 
curves  Batch.  The  choice  of  error  allowed  should  not  be  so 
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restrictive  as  to  preclude  a  aatch,  and  because  of  this, 
consideration  Bust  be  fiven  to  decision  Baking 
inconsistencies. 

Now  that  aoBe  of  the  underlying  theory  for  multi¬ 
attribute  utility  aasessBent  has  been  discussed,  the  next 
section  discusses  a  coBputer  graphics  prograB  which 
iBpleBents  the  two-attribute  utility  case. 
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General  Equations  for  Coamon  Utility  Curves 


U(x) 

= 

bo 

+ 

bi  X 

U(x) 

= 

bo 

+ 

bi  X 

U(x) 

= 

bo 

bi  x2 

U(x) 

= 

bo 

+ 

bi  Inx 

U(x) 

= 

bo 

+ 

bi  e** 

U(x) 

= 

bo 

+ 

bix  +  b2X3 

U(x) 

r 

bo 

+ 

bi  (-e-c  >«  ) 

U(x) 

= 

bo 

+ 

biC-e-**  - 

U(x) 

= 

bo 

- 

bi e-c  * 

U(x) 

:= 

log(x 

+  b) 

Figure  2.1  General  Equations  for  Common  Utility  Curves 
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3.  A  TWO-ATTRIBUTE  UTILITY  GRAPHICS  PROGRAM 
This  section  covers  the  iapleaentat ion  details  of  the 
utility  graphics  prograa.  It  also  provides  a  detailed 
exaaple  session  which  steps  the  reader  through  the  utility 
assessaent  process  perforaed  by  the  prograa,  providing 
representative  figures  froa  a  coaputer  aonitor  screen. 

3.1  Software  and  Hardware  Specifications 

The  two-attribute  utility  prograa  developed  to  runs  on 
a  VAX  11/780  under  the  VMS  operating  systea.  It  is  written 
in  Pascal,  but  aakes  routine  use  of  external  procedures  for 
graphics  prograaaing.  These  external  procedures  belong  to  a 
graphics  package  developed  by  Precision  Visuals,  Inc., 
called  01-3000  software  (the  extended  version  of  DI-3000 
software  is  required  to  run  the  prograa).  The  prograa  also 
uses  a  sub-package  of  the  DI-3000  software  called  the 
Contouring  Package.  The  graphics  terainal  used  to  run  the 
prograa  on  is  the  Tektronix  4105,  with  a  Tektronix  4695  hard 
copy  jet  printer  attached. 

The  prograa  is  designed  to  interactively  query  the 
decision  aaker  for  the  attributes  of  the  alternatives,  their 
ranges,  and  their  units  of  aeasure.  Froa  there,  it  presents 
lotteries  for  the  decision  aaker  to  give  certainty 
equivalents  to,  so  that  the  utility  independence  properties 
of  the  attributes  can  be  deterained.  Depending  on  which 
utility  independence  properties  hold,  appropriate  questions 
are  asked  to  develop  utility  functions  for  the  individual 
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attributes,  which  are  then  combined  to  form  the  overall 
utility  function.  It  is  then  presented  graphically  to  the 
user  from  eight  possible  viewpoints.  Examples  of  a  sample 
session  are  now  presented. 

3.2  Example  Session 

In  this  example  session,  suppose  a  decision  maker  is 
faced  with  a  choice  of  receiving  leisure  time  or  money  next 
week.  His  attributes  characterizing  the  consequences  would 
be  time  for  the  first  attribute  ,  measured  in  hours;  and 
money  for  the  second  attribute,  measured  in  dollars.  The 
range  of  time  he  is  offered  is  from  0  to  100  hours,  and  the 
range  of  money  he  is  offered  ranges  from  $200  to  $300.  The 
program  is  used  to  assess  his  utility  for  all  possible 
(hours,  dollars)  combinations  so  that  if  offered  a  specific 
outcome,  his  preference  would  be  evident. 

3.2.1  Additive  and  Mutual  Utility  Independence 

To  start  with,  the  program  introduces  itself  and 
explains  its  function  (fig.  3.1).  It  then  asks  the  decision 
maker  for  the  problem  specifics  (fig.  3.2).  Then,  it 
presents  the  decision  maker  with  ten  lotteries  (five  for 
each  attribute),  at  the  quartile  points  of  the  other 
attribute’s  range  (fig.  3.3  -  3.5).  Based  on  the  decision 
maker’s  responses,  one  of  the  four  utility  independence 
properties  would  hold.  This  is  determined  by  comparing  all 
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Figure  3.1  Program  Introduction 


I 

I 


This  pro3ra«  is  4  9*n«rtc  multi-attribute  utility  theory 
based  methodology  for  assisting  a  decision  maker.  From  inter¬ 
acting  with  the  decision  maker^  it  will  determine  the  decision 
maker ^s  utility  function  over  two  user  specified  attributes. 
From  there^  it  will  present  the  utility  function  graphically^ 
at  the  angle  of  rotation  desired  by  the  decision  maker. 


Please  enter  any  character  followed  by  a  return  to  continue: 
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Figure  3.2  Attribute  Information 


PleJie  writer  ycur  first  attribute.  If  the  attribute  is  ever 
10  characters  lonj^  please  abbreviate  it  to  be  10  characters. 

attribute  name:  TIME 

Uhat  units  is  this  attribute  .-neasured  in?:  HOURS 

Please  enter  the  least  and  most  preferred  values  this  attribute 
can  be  —  (to  the  nearest  iiihole  number). 

least  preferred:  0 
most  preferred:  100 

Please  enter  your  second  attribute,  Ajain,  please  insure  it 
does  not  exceed  lO  characters  in  length. 

attribute  name:  MOMEV 

What  units  is  this  attribute  measured  in'*:  DCLLARS 

Please  enter  the  least  and  most  preferred  values  this  attribute 
can  have  —  (to  the  nearest  whole  number). 

least  preferred;  £00 
rios  t  pref erred :  200 


i 
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Figure  3.3 


Lottery  Directions 


You  iDill  now  be  shown  a  series  of  lotteries  for  which  you 
must  enter  your  certainty  equivalents: 


Hit  any  key  followed  by  return  to  continue: 
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Figure  3.4  Lottery  for  Time  at  Money 


In  terns  of  the  (HOURS  ,  DOLLARS  )  outcome^ 
please  enter  cjour  value  for  the  e)uestion  nark:  30 
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the  responses  for  the  time  attribute  certainty  equivalents 
with  each  other  and  all  the  responses  for  the  money 
certainty  equivalents  with  each  other. 

When  giving  responses  to  the  lotteries,  it  is  possible 
that  the  decision  maker  can  be  slightly  inconsistent.  If 
the  program  detects  that  all  responses  for  a  particular 
attribute  fall  within  5%  of  the  average  value  for  the 
responses,  it  makes  a  consistency  check  before  assigning  any 
utility  independence  properties.  It  queries  the  decision 
maker  to  see  if  perhaps  a  single  value  could  replace  the 
responses  (fig.  3.6  -  3.7).  The  previous  responses  are 
shown  so  that  the  decision  maker  can  then  leave  them  as  is, 
or  change  the  attribute  values  in  question  to  a  common  one. 
Once  this  choice  has  been  made,  utility  independence 
properties  are  determined. 

If  all  the  time  attribute  utility  values  are  equal  to 
each  other  and  all  the  dollar  attribute  utility  values  are 
equal  to  each  other,  then  at  least,  mutual  utility 
independence  holds,  and  a  choice  between  two  lotteries  is 
offered  (fig.  3.8  -  3.9).  Depending  on  the  decision  maker’s 
response  (choice  1,  or  either  of  2  or  3),  a  distinction  is 
made  between  additive  or  mutual  utility  independence  (fig. 
3.10  and  3.11).  Remember  that  additive  independence  exists 
if  mutual  utility  independence  exists  and  the  decision  maker 
indicates  indifference  between  the  two  lotteries  (i.e.. 


choice  1 )  . 
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Figure  3.6  Possible  Inconsistency  Indicated 


In  terms  of  the  (HOURS  ^  DOLLARS  )  outcome^  since 

your  responses  for  TIME  all  fall  within  5  percent  of  the  average^ 

please  carefully  reconsider  your  previous  answers.  You  will 
need  to  determine  if  the  attribute  values  should  be  changed  to  a 
common  value/  and  if  sO/  which  one.  (NEXT  SCREEN) 


Hit  any  key  followed  by  return  to  continue; 
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Figure  3.7  Previous  Responses  for  Time  C.E.'s 
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Please  enter  the  number  corresponding  to  your  choice. 

1)  Change  previous  answers  to  a  common  one. 

2)  Leave  answers  as  is. 

Choice;  1 

What  value  would  you  like  to  change  it  to?;  30 
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Figure  3.8  Lottery  Specifying  Mutual  Utility  Independence 


With  respect  to  the  lotteries  below,  in  terns  of  the 

(HOURS  ,  DOLLARS  )  outcome,  please  indicate 

which  statement  corresponds  to  your  feelings  about  this  lottery: 

1)  I  am  indifferent  between  the  lotteries. 

2)  I  prefer  the  lottery  on  the  left. 

3)  I  prefer  the  lottery  on  the  right. 

Choice:  3 


-  '  V  U 


I.’  1  C'Ci 


T  l_^l  (_^ 
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Figure  3.9  Lottery  Specifying  Additive  Independence 


With  respect  to  the  lotteries  below^  in  terms  of  the 

(HOURS  ,  DOLLARS  )  outcome^  please  indicate 

which  statement  corresponds  to  your  feelings  about  this  lottery: 

1)  I  am  indifferent  between  the  lotteries. 

2)  I  prefer  the  lottery  on  the  left. 

3)  I  prefer  the  lottery  on  the  right. 

Choice:  1 


I.  1  C'j 


^1 


[>/ 


i* 


y 
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Figure  3.10  Mutual  Utility  Independence  Indicated 


Since  your  responses  indicate  that  the  1 
attributes  are  mutually  utility  independent^  I 
your  utility  function  can  easily  be  developed  by  assessiny  I 
the  maryinal  utility  curve  for  each  attribute.  To  do  this^  I 
you  Mill  be  shown  additional  lotteries  for  which  you  must  H 
enter  your  certainty  equivalents. 


Hit  any  key  followed  by  return  to  continue; 
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Figure  3.11  Additive  Independence  Indicated 


Since  your  responses  indicate  that  the 
attributes  are  additiue  independent^ 

your  utility  function  can  easily  be  developed  by  assessing 
the  marginal  utility  curve  for  each  attribute.  To  do  this^ 
you  will  be  shown  additional  lotteries  for  which  you  must 
enter  your  certainty  equivalents. 


Hit  any  key  followed  by  return  to  continue: 


I 

V 

I 


The  distinction  between  additive  and  mutual  utility 
independence  is  important,  because  it  dictates  the  form  of 
the  utility  function  used.  However,  marginal  utilities  of 
the  two  attributes  are  used  in  both  cases,  so  the  procedures 
for  determining  each  attribute's  individual  utility  curve 
and  associated  scaling  constants  are  the  same. 

In  this  program,  only  one  pre-specif ied  form  of  utility 
function  is  used  for  simplicity.  It  is  also  a  flexible, 
commonly  used  function.  (Sheridan  1977,  p.  392)  This 
function  is  of  the  form: 

U(x)  =  b(l  -  e-c" ) . 

This  form  requires  only  a  single  response  from  the  decision 
maker  to  develop  the  utility  function  for  time  (fig.  3.12) 
and  a  single  response  to  develop  the  utility  function  for 
money  (fig.  3.13).  It  is  also  a  fairly  realistic  function 
to  apply  except  in  cases  where  the  decision  maker's 
certainty  equivalents  lie  too  close  to  the  most  and  least 
preferred  consequence.  If  this  is  the  case,  the  terative 
optimization  procedure  for  finding  values  for  the  b  and  c 
variables  does  not  converge  to  the  specified  maximum  error 
allowed  by  the  program  (.0001  units)  within  a  reasonable 
time  (35  iterations),  and  the  decision  maker  is  informed 
that  his  utility  can  not  be  assessed  by  the  utility  program 
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Figure  3.12  C.E.  for  Time  Marginal  Utility  Curve  Determination  8 
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Figure  3.14  Program  Inability  to  Assess  Utility 


The  pr»sp«cifi*d  curv*  used  to  4pproxiM«i«  t^our  utility 
curu*  otoosn^t  natch  your  valuos  w*U  enough  to  be  used  as 
an  accurate  representation.  Unfortunately^  this  progran 
can't  be  used  to  assess  your  utility.  SORRY! 


Hit  any  key  followed  by  return  to  exit  back  to  systen  leuel . 


I 


If,  on  the  other  hand,  the  forn  can  be  used  for  each 
attributes  utility  curve,  it  becomes  necessary  to  determine 
their  scaling  constants.  One  necessary  condition  is  that 

kv  +kz  +  kv2  =  1. 

Here,  kv  is  the  scaling  constant  for  the  first  attribute 
(generically  termed  y)  and  kz  is  the  scaling  constant  for 
the  second  attribute  (generically  termed  z).  In  the 
additive  independence  case,  kv z  is  0  so  that 

kv  +  kz  =  1. 

We  need  to  put  kz  in  terms  of  kv  or  kv  in  terms  of  kz 
to  remove  one  unknown  in  the  equation.  This  is  done  by 
asking  the  decision  maker  to  specify  a  preferred  outcome, 
either  the  (most  preferred  of  attribute  y,  least  preferred 
of  attribute  z)  or  the  (least  preferred  of  attribute  y,  most 
preferred  of  attribute  z).  Depending  on  the  decision 
maker’s  choice,  if  the  first  outcome  is  preferred,  a  value 
for  attribute  y  is  sought  to  complete  the  indifference 
relation.  (fig.  3.15)  (If  the  second  outcome  were 
preferred,  a  '"alue  for  attribute  z  would  be  sought,  and  if 
the  decision  maker  were  indifferent  between  the  two,  the 
utility  values  would  already  be  available). 

From  this  indifference  value,  it  is  possible  to 
establish  the  relationship  between  kv  and  kz  (see  Keeney 
1976,  pp.  278  -  281  for  details),  such  as  kz  =  . 28kv  or  kv  = 
.36kz,  etc.  Finally,  the  last  unknown  must  be  solved  for. 


Figure  3.15  Finding  Scaling  Relationship 


In  terms  of  the  (HOURS  ,  DOLLARS  )  outcome^ 
Please  enter  your  preference. 

(  I00y  200)  or  (  0,. 

1)  I  prefer  the  outcome  on  the  left. 

2)  I  prefer  the  outcome  on  the  right. 

3)  I  am  indifferent  between  outcomes. 

Choice:  I 


Mhat  amount  of  HOURS  would  make  you  indifferent  to 

the  outcomes  below? 


(  ?  ^  200)  ''  (  0  ^  300) 

amount  of  HOURS  ;  50 


This  requires  the  decision  maker  to  specify  an  outcome  such 
that  it  has  a  utility  of  0.5. 

The  process  of  choosing  this  outcome  is  not  handled 
very  elegantly  in  this  program.  Many  possible  combinations 
of  the  two  attributes  exist  which  form  a  surface  whose 
utility  value  is  0.5.  Ideally,  a  convergence  technique  to 
help  the  decision  maker  focus  on  a  particular  outcome  is 
preferable.  However,  as  it  stands  now,  the  decision  maker 
is  faced  with  a  direct  assessment  problem  (fig.  3.16).  This 
results  in  a  solution  from  the  following  equations  (if,  for 
example,  kv  were  . 36k2  )  : 

kv  =  . 36k2 , 

kvz  =  1  -  . 36kz  -  kz ,  and 

0.5  =  .36kz(Uv)  +  kz(Uz)  +  (1  -  .36kz  -  kz)(UY)(Uz). 
Since  Uv  and  Uz  are  known  because  of  their  utility  curves, 
the  only  unknown  is  kz .  Once  kz  is  found,  kv  is  found,  and 
then  kvz.  Keep  in  mind  here  that  if  additive  independence 
holds,  kvz  =  0. 

Now  the  program  fills  an  array  with  utility  values  for 
possible  outcomes  of  attribute  y  and  z,  and  asks  the 
decision  maker  from  which  viewpoint  he  prefers  to  see  the 
utility  graph  (fig.  3.17  -  3.18).  Then,  depending  on  the 
response,  it  draws  one  of  eight  graphs  (here  reflecting  the 
results  of  the  example  session  answers  for  the  mutual 
utility  independent  case)  (fig.  3.19  -  3.26).  The  other 

possibilities  for  utility  independence  is  utility 


Figure  3.16  Indiference  Point  Selection 


In  terms  of  the  (HOURS  ,  DOLLARS  )  outcome,. 

what  values  of  HOURS  (?)  and  DOLLARS  (#) 

will  make  you  indifferent  between  the  c.e.  and  the  lottery? 

Ualue  of  HOURS  i  30 

Ualue  of  DOLLARS  :  230 
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Figure  3.17  Representation  of  Viewpoints 
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Figure  3.18  Viewpoints  Offered 


Please  indicate  your  choice  of  viewpoint  for  the  utility  graph. 


1)  front  3) right 

2) front-right  4)back-ri3ht 
choice; 


5) back  7) left 

6) back-left  S)front-left  9)c|uit 


i 


iS 

i 


I 
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Figure  3.23  Viewpoint  5  (Example  Session) 


DOLLAR 


DOLLAPsS 


independence  in  one  direction  (either  direction),  or  no 


utility  independence  for  the  attributes.  i 

( 

( 

I 

3.2.2  Utility  Independence  in  One  Direction 

I 

If  the  responses  for  only  one  of  the  two  attributes  are  1 

I 

all  equivalent  (say  for  dollars)  then  the  utility  program  ! 

informs  the  decision  maker  (fig.  3.27)  and  obtains  the 
values  necessary  to  develop  the  three  marginal  utility 
curves  (fig.  3.28  -  3.30).  These  curves  are  then  combined 
in  the  manner  previously  indicated  (section  2.3.3)  for 
attributes  utility  independent  in  one  direction.  If  none  of 
the  previously  mentioned  properties  exist,  the  fourth  case, 
of  no  utility  independence  between  attributes,  is  chosen. 

3.2.3  No  Utility  Independence 

This  case  is  indicated  by  non-equivalence  of  the 
certainty  equivalents  obtained  by  asking  the  first  ten 
lotteries.  Keeney  (1976),  however,  has  indicated  it  may  be 
possible  to  avoid  taking  a  direct  assessment  approach 
immediately  by  either  transforming  the  problem  attributes 
into  ones  which  do  exhibit  a  form  of  utility  independence, 
or  by  decomposing  the  attribute  ranges  into  subsets  over 
which  utility  independence  properties  hold  (fig.  3.31). 

(Keeney  1976) 

If  the  decision  maker  chooses  the  first  option,  he  is 
expected  to  provide  the  transformed  attributes  and  rerun  the 
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Figure  3.27  Utility  Independence  One  Way  Indicated 


i 


I 

i 


Since  your  responses  indicate  that  DOLLARS  are 
utility  independent  of  HOURS  / 

your  utility  function  can  easily  be  assessed  by  deuelopiny 
three  maryinal  utility  curves  for  the  attributes.  To  do  thiSy 
you  will  be  shown  additional  lotteries  for  which  you  must 
enter  your  certainty  equivalents. 


Hit  any  key  followed  by  return  to  continue: 
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Figure  3.2»  C.E.  for  Money  Marginal  Utility  Curve  Determination 


In  terms  of  the  (HOURS  ,  DOLLARS  )  outcome^ 
please  enter  your  value  for  the  ;  230 
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Figure  3.29  C.E.  for  Time  Marginal  Utility  Curve  Determination 

(at  Money  .  ) 
min 


In  terms  of  the  (HOURS  ,  DOLLARS  )  outcome^ 
please  enter  your  value  for  the  30 


(  1  'JO  ,  C:QC'  ) 


i‘  ? 


2  GO  1 


I  O  ,  ZOO  .1 


I 

c 


MVUVIIVUV 


^wuvuvMVtmiwiivuinnuiuviivuwuvwwuv 


WniWMIMIIVIfll 
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Figure  3.30  C.E.  for  Time  Marginal  Utility  Curve  Determination 

(at  Money  ) 

-^max 


In  terms  of  the  (HOURS  ^  DOLLARS  )  outcome^ 
please  enter  your  oalue  for  the  ;  70 


f  ? 


jGC 
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Figure  3.31  No  Utility  Independence  Indicated 


Since  your  responses  indicate  that  the  attributes  are  not  at  all 
utility  independent^  there  are  three  possible  approaches  to 
assessing  utility  values  for  the  attributes.  The  first  approach 
requires  you  to  rerun  the  utility  program  using  transformed 
attributes  which  may  exhibit  utility  independence.  The  second 
approach  requires  decomposing  the  attribute  ranges  and 
then  assessing  the  utility  function  over  these  decomposed 
ranges^  which  may  be  utility  independent.  Further  guidance  on 
this  option  is  provided  when  you  choose  it.  Finally^  the 
last  approach  requires  you  to  indicate  your  utilities  directly 
for  different  combinations  of  attributes.  Since  this  is  the 
most  difficult  option  to  perform,  it  is  recommended  you  try 
one  of  the  other  two  if  possible. 


Please  indicate  which  option  you  want. 
11  Use  transformed  attributes. 

2)  Decompose  the  attribute  ranges. 

3)  Direct  assessment. 

Choice:  2 


program  (the  program  automatically  restarts).  If  he  chooses 


to  decompose  the  ranges,  an  explanatory  paragraph  gives  an 


example  of  how  to  do  this  (fig.  3.32)  and  he  is  offered  a 


chance  to  view  his  previous  responses  to  the  initial  ten 


lotteries  (the  answers  are  of  the  same  form  as  those 


presented  during  the  consistency  check).  The  utility 


program  is  then  restarted.  Should  the  decision  maker  choose 


the  direct  assessment  option,  he  is  warned  about  its 


difficulty  and  told  how  to  proceed  (fig.  3.33).  After  that, 


he  is  shown  thirty  six  consequences  over  the  attribute 


ranges  for  which  he  must  give  his  utility  directly  (fig. 


3.34  -  3.39).  In  both  the  utility  independent  in  one 


direction  and  no  utility  independence  cases,  the  same 


viewpoints  and  graphs  of  the  utility  function  are  offered. 


To  show  the  applicability  of  even  a  simple  two- 


attribute  utility  program  to  a  prototypical  problem,  we  wei 


assisted  by  two  Air  Force  officers  from  the  24th  Ai 


Division,  Griffiss  AFB.  They  allowed  us  to  assess  their 


utilities  for  tactical  mission  planning  outcomes  and  the 


sessions  are  recorded  in  the  next  section. 


fL 


i 


I 


I 

I 


' 


5! 
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Figure  3.32  Decomposition  of  Ranges  Chosen 


Decomposing  the  attribute  ranges  should  be  done  if  there 
is  indication  of  utility  independence  ouer  a  subset  of  the  range. 
This  is  indicated  by  having  a  constant  certainty  equivalent  for 
an  attribute  even  when  the  other  attribute's  value  varies.  For 
example^  if  your  certainty  equivalent  for  attribute  one  (ranging 
frow/  sey/  0  to  100)  is  always  constant  (say,  60)  over  a  subrange 
(say,  less  than  350)  of  attribute  two  (ranging  from,  say,  200  to 
400),  then  a  good  place  to  subset  the  range  would  be  from  200  to 
350  and  350  to  400.  This  way,  over  the  200  to  350  range,  some 
utility  independence  properties  will  hold. 

Uould  you  like  to  see  your  original  answers  again? 

1)  yes 

2)  no 
Choice:  2 

Please  indicate  which  operation  you  want  to  perform. 

1)  Return  to  options  menu. 

2)  Perform  the  analysis  over  a  subset  of  ranges. 

Choice:  1 
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Figure  3.33  Direct  Assessment  Chosen 


This  procedure  is  difficult  to  perform  because  it  is  te¬ 
dious^  and  you  must  have  a  good  feel  for  your  preferences.  You 
will  be  asked  to  assign  a  number  from  0  to  1 .0  to  a  variety  of 
outcomes.  Please  think  carefully  about  your  choices. 


Hit  any  key  followed  by  return  to  continue: 
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Figure  3.34  Direct  Assessment  Points  1-6 


Based  on  the  scale  below^  please  enter  the  number  you  feel 
indicates  the  worth  of  the  following  outcomes.  The  number 
entered  may  be  real  Or  integer  between  and  including  0 
through  1.0. 
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Figure  3.35  Direct  Assessment  Points  7-12 
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Figure  3.36  Direct  Assessment  Points  13-18 
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3.37  Direct  Assessment  Points  19-24 
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Figrue  3.38  Direct  Assessment  Points  25-30 
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4. 


APPLICATION  TO  MISSION  PLANNING 


This  section  describes  an  attempt  to  determine  the 
utility  graphs  of  two  Air  Force  mission  planners.  The 
process  is  described  via  figures  of  the  computer  screen 
taken  during  the  utility  assessment  session.  A  five  step 
approach  is  followed,  in  conjuction  with  running  the 
program,  to  perform  the  utility  assessment. 

4.1  Problem  Discussion 

The  idea  for  applying  the  utility  program  to  mission 
planning  arose  from  some  research  work  being  done  for  Rome 
Air  Development  Center  (RADC)  at  Griffiss  AFB.  There,  in 
the  Decision  Aids  Section,  a  decision  aid  is  being  developed 
to  determine  mission  success  based  on  a  mission’s 
probability  of  arrival  (Pa)  to  a  target,  and  its  probability 
of  destruction  (Pd)  of  the  target.  The  Pd  for  a  mission  is 
readily  available  from  the  Joint  Munitions  Effectiveness 
Manual,  but  the  Pa  is  a  fairly  subjective  assessment  arrived 
at  from  intelligence  estimates  of  enemy  threat.  Since  the 
problem  was  characterized  in  this  fashion,  we  decided  it  was 
an  ideal  one  for  the  utility  program. 

The  two  officers  whose  utilities  were  assessed  were 
Major  Rand  Case  and  Major  Robert  Stan.  Both  men  had  prior 
experience  in  the  mission  planning  area  and  are  currently 
assigned  to  the  24th  Air  Division,  Live  Exercise  Division  at 


Griffiss  AFB.  To  assess  their  utilities,  the  five  step 


process  outlined  by  Keeney  (Keeney  1976,  p.  261)  was  used. 


4.2  Five  Step  Assessaent  Procedure 


This  procedure  gives  a  systeaatic  approach  for  assessing 


utility,  but  there  is  no  guarantee  that  following  it  results 


in  a  correctly  assessed  utility  function.  The  chances  of 


having  a  correctly  assessed  function  increase  if  an 


experienced  analyst  elicits  the  information  from  the 


decision  maker  or  the  decision  maker  is  sufficiently 


informed  and  comfortable  with  the  ideas  behind  multi 


attribute  utility  theory.  Since  both  officers  were  somewhat 


familiar  with  the  concept,  and  the  computer  program  provided 


the  format  to  follow,  the  author  hopes  that  my  inexperience 


as  an  analyst  did  not  totally  prejudice  the  process. 


Following  the  five  step  process,  we  proceeded  as  follows. 


4.2.1  Introduce  Terminology  and  Ideas 


Both  officers  were  present  at  this  part.  We  stressed 


that  it  was  not  the  kind  of  a  problem  where  either  of  their 


preferences  were  right  or  wrong,  merely  an  indication  of  how 


they  felt  about  the  problem  at  hand.  We  then  asked  if  it 


was  reasonable  to  characterize  t  le  problem  of  assigning 


missions  as  being  dependent  on  the  two  attributes  Pa  and  Pd. 


Both  men  felt  it  could  be  broken  down  into  consequences  of 


still  a  fairly  ethereal  concept.  Both  agreed,  however,  that 
if  Pa  could  be  determined,  it  would  indicate,  along  with  Pd, 
the  mission’s  worth. 

Since  both  men  were  familiar  with  the  concept  of 
utility,  we  only  had  to  familiarize  them  with  the  specific 
terminology  of  the  computer  program  as  outlined  in  section 
2.1.  We  also  ran  through  an  example  session  of  the  program 
so  they  could  see  how  it  operated.  We  then  asked  Major  Stan 
to  sit  aside  while  we  worked  with  Major  Case. 

4.2.2  Utility  Assessment  for  Mission  Planner  1 

To  find  the  ranges  of  Pa  and  Pd  over  which  to  assess 
his  utility,  we  asked  him  if  there  were  some  value  of  Pa  and 
Pd  below  which  he  would  never  assign  a  mission.  He  said  it 
depended  on  the  mission,  and  we  asked  him  to  think  of  a 
specific  type.  He  said  fire  suppression.  His  determination 
was  that  no  mission  should  be  sent  without  at  least  a  45!l> 
chance  of  arriving  and  a  25%  chance  of  destroying  the  target 
(fig  4.1).  This  meant  the  consequence  --  in  terms  of  (Pa, 
Pd)  --  for  the  least  preferred  was  (45,  25)  and  most 
preferred  was  (  100,  100).  The  next  step  was  performed  by 
the  utility  program. 

Identify  Relevant  Independence  Assumptions. 

Major  Case  answered  the  initial  ten  lotteries  (fig.  4.2 
-  4.11).  During  this  process,  both  he  and  Major  Stan  had 
some  problems.  Initially,  both  officers  wanted  to  enter  the 
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Figure  4.1  Attribute  Information 


Please  enter  your  first  attribute.  If  tbe  attribute  is  over 
10  characters  long^  please  abbreviate  it  to  be  10  characters. 

attribute  name:  PARRIOE 

What  units  is  this  attribute  measured  in?:  PA 

Please  enter  the  least  and  most  preferred  values  this  attribute 
can  be  —  (to  the  nearest  whole  number). 

least  preferred:  45 
most  preferred:  100 

Please  enter  your  second  attribute.  Again^  please  insure  it 
does  not  exceed  10  characters  in  length. 

attribute  name:  PDESTROY 

What  units  is  this  attribute  measured  in?:  PD 

Please  enter  the  least  and  most  preferred  values  this  attribute 
can  have  —  (to  the  nearest  whole  number). 

least  preferred:  £5 
most  preferred:  100 


%  V'oW’.N  'V  l'-  '.•«  IN  ' V.  ■ 


'v  V 


Figure  4.3  Lottery  for  Pa  at  Pd  (MP  1) 


In  t*rms  of  th«  (PA  ,  PO  )  outcome^ 

please  enter  ^ur  oalue  for  the  question  mark:  75 


75 


Figure  4.4  Lottery  for  Pd  at  Pa  (MP  1) 

max 


In  tffms  of  th#  (PA  ,  PO  )  outcome^ 

pl«as«  enter  your  uelue  for  the  c|uestion  nerki  50 


Figure  4.5  Lottery  for  Pa  at  Pd  (MP  1) 


In  t#r«s  of  tho  (PA  ,  PD  )  ouicoMy 

pleas*  enter  ^ur  value  for  the  question  narki  55 


44- 


44  ) 


44  ') 
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Figure  4.6  Lottery  for  Pd  at  Pa  (MP  1) 

•  3U 


In  terns  of  the  (PA  ,  PO  )  outcome^ 

please  enter  ^ur  value  for  the  question  mark:  50 
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Figure  4.7  Lottery  for  Pd  at  Pa  (^^P  U 


In  terns  of  the  (PA  ,  PO  )  outcone^ 

pleese  enter  ijour  value  for  the  question  narki  50 
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Figure  4.8  Lottery  for  Pa  at 


In  t*rns  of  th*  (PA  ,  PD  )  outcone^ 

ploase  enter  ijour  value  for  the  question  narki  £0 


I,'  1  'DO  .  1  GO  ) 


(  7  ,  TOO  ) 


i'  *+5  ,  1 0  c  ;i 


Figure  4.9  Lottery  for  Pd  at  Pa  .  (MP  1) 
®  ■'  mm 


In  t^rms  of  the  (PA  ,  PD  )  outcone^ 

please  enter  your  ualue  for  the  question  mark:  50 


Figure  A. 10  Lottery  for  Pa  at  Pd  (MP  1) 


In  terms  of  the  (PA  ^  PD  )  outcoM^ 

picas*  enter  ^ur  oalue  for  the  question  narki  79 


I  1  'Du 


1...  7  .  e  1  ) 


I  4-f. 


El  'i 


Figure  4.11  Lottery  for  Pd  at  Pa 


(MP  1) 


.75 


In  t*rms  of  th*  (PA  ,  PO  )  outcome^ 

pl*4s*  oni^r  i^our  oalu*  for  th*  question  mark:  SO 


1  C'  C' 
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least  preferred  alternative  as  the  certainty  equivalent, 
because  they  said  they’d  already  indicated  it  was  the 
minimum  acceptable  amount.  We  had  to  reemphasize  the  nature 
of  the  lottery  being  offered.  We  told  them  the  worst  they 
could  do  was  get  the  least  preferred  alternative,  so  how 
much  more  would  they  have  to  get  for  certain  before  they 
were  willing  to  give  up  a  50%  shot  at  the  most  preferred 
alternative.  Stated  this  way,  they  quickly  realized  the 
intent  of  he  lottery.  Major  Case’s  data  indicated  that  Pd 
was  utility  independent  of  Pa  (fig.  4.12). 

Assess  Conditional  Utility  Functions  and  Obtain  Scaling 
Constants . 

Three  points  were  elicited  to  develop  the  conditional 
functions  and  scale  the  utility  values  (fig.  4.13  -  4.15). 
After  this,  the  eight  different  views  of  the  utility  graph 
were  plotted  for  him  to  see  (fig.  4.16  -  4.23). 

Consistency  Checking. 

Major  Case  felt  more  comfortable  being  able  to  express 
his  preferences  in  words  (as  did  Major  Stan).  He  was 
uncomfortable  with  some  of  his  answers  to  the  lotteries,  but 
was  fairly  confident  the  graphs  showed  his  intentions  to 
give  values  for  Pd  without  being  influenced  by  Pa.  Specific 
comments  on  the  technique  by  Major  Case  are  included  in 
section  4.2.4. 


1 
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Figure  4.12  Utility  Independence  One  Way  Indicated  (MP  1) 


Sine*  ^ur  responses  indicat*  that  PD  are 

utility  indepandant  of  PP  , 

your  utility  function  can  easily  be  assessed  by  developing 
Uiree  naryinal  utility  curves  for  the  attributes.  To  do  this^ 
you  will  be  shown  additional  lotteries  for  which  you  must 
enter  your  certainty  equivalents. 


Hit  any  key  followed  by  return  to  continual 
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Figure  4.13  C.E.  for  Pel  Marginal  Utility  Curve  Determination  (MP  1) 


In  l*rms  of  th*  (PA  ^  PD  )  outco««, 

plvas*  •nt*r  your  for  th*  "?*:  50 


0i 


K  .  1  Z 


m-M187  276 
UNCLASSIFIED 


DEVELOPMENT  OF  M  GRAPHICS  BASED  THO-ATTRIBUTE  UTILITV  2/2 
ASSESSMENT  PROGRAM  N. .  <U>  AIR  FORCE  INST  OF  TECH 
HRIOHT-PATTERSON  AFB  OH  E  H  MANNER  DEC  86 
RFIT/'CI/NR-87-73T  F/Q  12/4  NL 
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Figure  4.14  C.E.  for  Pa  Marginal  Utility  Curve  Determination  (at  Pd  ,  ) 
(MP  1)  ”  ” 


In  terns  of  the  (PA  ,  PD  )  outcome^ 

please  enter  your  value  for  the  75 


I.  T’DO 


(“  v  < 


(.  -+5  , 


Figure  4.15  C.E.  for  Pa  Marginal  Utility  Curve  Determination  (at  Pd  ) 
(MP  1) 


In  terns  of  the  (PA  ,  PO  )  outcone^ 

pleese  enter  jjour  value  for  the  "?*!  50 


C  1  'I'O  .  1 00  ) 


,5 


r  ? 


1 0O  'll 


I  -+5  ,  1  GO  ) 
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Figure  4,22  Viewpoint  7  (MP  1) 
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Figure  4.23  Viewpoint  8  (MP  1) 
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4.2.3 Utility  Assessment  for  Mission  Planner  2 

Major  Stan  felt  uncomfortable  with  the  idea  of  setting 
limits  for  Pa  and  Pd  without  knowing  the  specific  mission, 
as  well.  We  asked  him  to  think  in  terms  of  a  specific 
mission  type  as  well,  which  made  him  feel  better.  His  least 
preferred  consequences  in  terms  of  (Pa,  Pd)  was  (60,  50)  and 
most  preferred  was  (100,  100),  (fig.  4.24). 

Identify  Relevant  Independence  Assumptions. 

Major  Stan’s  answers  to  the  first  ten  lotteries  (fig. 
4.25  -  4.34)  showed  a  possible  inconsistency  in  his 
certainty  equivalents  for  Pd  (fig.  4.35).  When  asked  by  the 
program  if  this  was  intentional  after  being  shown  his 
responses  for  the  attribute  certainty  equivalents,  he  felt 
it  was;  since  at  higher  values  of  Pa  his  feelings  about  Pd 
changed  (fig.  4.16).  This  resulted  in  no  utility 
independence  properties  being  present  for  the  attributes 
(fig  4.37).  He  chose  to  try  to  decompose  the  attributes, 
and  after  viewing  his  original  responses  (fig.  4.38  -  4.40) 
saw  that  Pa  remained  constant  over  all  lower  values  of  Pd 
and  only  went  down  once  the  most  preferred  consequence  of  Pd 
was  reached.  So,  he  indicated  he'd  like  to  perform  the 
analysis  over  a  subset  of  the  ranges  (fig.  4.41). 

This  time,  his  consequence  space  for  Pd  changed.  The 
least  preferred  outcome  remained  constant,  but  he  felt  that 
his  preferences  for  Pa  would  only  remain  constant  while  Pd 
was  90%  or  less.  Therefore,  his  utility  was  assessed  over 


Figure  4.24  Attribute  Information  (1st  try,  MP  2) 


Please  enter  your  first  attribute.  If  the  attribute  is  over 
10  characters  long^  please  abbreviate  it  to  be  10  characters. 

attribute  name:  PARRIUE 

What  units  is  this  attribute  measured  in?:  PA 

Please  enter  the  least  and  most  preferred  values  this  attribute 
can  be  --  (to  the  nearest  whole  number). 

least  preferred:  60 
most  preferred:  100 

Please  enter  your  second  attribute.  Again^  please  insure  it 
does  not  exceed  10  characters  in  length. 

attribute  name:  PDESTROY 

What  units  is  this  attribute  measured  in?:  PD 

Ple?,se  enter  the  least  and  most  preferred  values  this  attribute 
can  have  —  (to  the  nearest  whole  number). 

least  preferred:  50 
most  preferred:  100 
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Figure  4.25  Lottery  for  Pa  at  Pd  .  (1st  try,  MP2) 


In  terms  of  the  (PA  ^  Pt)  )  outcome^ 

please  enter  your  ualue  for  the  question  mark;  30 
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Figure  4.26  Lottery  for  Pa  at  Pd  (1st  try,  MP  2) 


In  terns  of  the  (PA  ,  PO  )  outcone^ 

please  enter  your  uelue  for  the  question  nerkt  80 


99 


Figure  4.27  Lottery  for  Pd  at  (1st  try,  MP  2) 


Figure  4.28  Lottery  for  Pa  at  Pd  (1st  try,  MP  2) 


In  icms  of  tho  (PA 


PO 


)  outcon*^ 


plMM  ontor  your  valuo  for  th*  quasiion  narki  80 
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Figure  4.29  Lottery  for  Pd  at  Pa  (1st  try,  MP  2) 


In  i«rM  of  tho  (PA  ,  PO  )  outcono^ 

ploas*  ontor  ^jour  oaluo  for  th*  CfUMtion  narki  88 


I  50  .  T  ) 


r  SC'  ,  1  cc-  ) 


I  so  .  50'  'i 


I 

I 

\ 


Figure  4.30  Lottery  for  Pd  at  Pa  (1st  try,  MP  2) 


In  terns  of  the  (PA  ^  PD  )  ouicone^ 

please  enter  t^our  value  for  the  0|uestion  narki  99 
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Figure  4.31  Lottery  for  Pa  at  Pd  (1st  try,  MP  2) 

max 


In  tCTM  of  th*  (PA  ,  PO  )  outcono^ 

plOMO  ontor  sjour  u«luo  for  tho  o|UMtion  norki  70 


r  1  ciG  .  ICO  ) 


.  1  oc-  ) 


tl'Q  .  ICC  ) 


as 


i 
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Figure  4.32  Lottery  for  Pd  at  (1st  try,  MP  2) 
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Figure  4.33  Lottery  for  Pa  at  Pd  (1st  try,  MP  2) 
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Figure  4.34 


Lottery  for  Pd  at  Pa  (1st  try,  MP  2) 


In  Utm  of  th«  (PA  ^  PO  )  owtco**#^ 

ploaM  ontor  v^our  ualu*  for  th*  ciuostion  narki  88 


j  C'  .  1  C  C-  'i 


I  -^n 


I  f'J  I 
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Figure  4.35  Possible  Inconsistency  Indicated  (1st  try,  MP  2) 


In  terns  of  the  (PA  ,  PO  )  outcone^  since 

your  responses  for  POESTROY  ell  fell  within  5  percent  of  the  euereye^ 
pleese  carefully  reconsider  your  previous  answers.  You  will 
need  to  detemine  if  the  attribute  values  should  be  changed  to  a 
connon  value^  and  if  so^  which  one.  (NEXT  SCREEN) 


Hit  any  key  followed  by  return  to  continuei 
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Figure  4.36  Previous  Responses  for  Pd  C.E.'s  (1st  try,  MP  2) 


( 

IM, 

88) 

C8.5( 

188^ 

188) 

} 

8.5( 

188^ 

58)1 

( 

99, 

88) 

ce.5( 

99, 

188) 

) 

8.5( 

88, 

58)3 

( 

79, 

95) 

ce.5( 

79, 

188) 

) 

8.5( 

79, 

58)1 

( 

69, 

95) 

C8.5( 

99, 

188) 

} 

8.5( 

69, 

58)1 

( 

99, 

88) 

•9 

ce.5( 

99, 

188) 

) 

8.5( 

99, 

58)1 

Please 

enter 

the  nunber  corresponding 

to  gour 

clwice 

t)  Change  previous  answers  to  a  cownon  one. 
S)  Leave  answers  as  is. 

Choicei  Z 
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Figure  4.37 


No  Utility  Independence  Indicated  (1st  try,  MP  2) 


Sine*  your  rosponsM  indicat*  that  tha  aitributas  ara  not  at  all 
utility  indaparKlant^  thara  ara  thraa  possibla  approachas  to 
assassins  utility  valuas  for  tha  attributas.  Tha  first  approach 
raciuiras  you  to  rarun  tha  utility  proyran  using  transfornad 
attributas  ahich  nay  axhibit  utility  indapandanca.  Tha  sacond 
approach  raquiras  daconposing  tha  attributa  rangas  and 
thlm  assassing  tha  utility  function  ouar  thasa  daconposad 
rangas /  which  Piay  ba  utility  indapandant.  Furthar  guidanca  on 
this  option  is  prouidad  whan  you  choosa  it.  Finallyy  tha 
last  approach  ra«|uiras  you  to  indicata  your  utilitias  diractly 
for  diffarant  coabinations  of  attributas.  Sinca  this  is  tha 
nost  difficult  option  to  parfom^  it  is  racoanandad  you  try 
ona  of  tha  othar  two  if  possibla. 


Plaasa  indicata  which  option  you  want. 

1)  Usa  transforaad  attributas. 

2)  Dacoaposa  tha  attributa  rangas. 

3)  Dirac t  assassaant. 

Choicai  2 
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Figure  4.38  Decomposition  of  Ranges  Chosen  (1st  try,  MP  2) 


Decomposin3  the  attribute  raises  should  be  done  if  there 
is  indication  of  utility  independence  over  a  subset  of  the  range. 
This  is  indicated  by  having  a  constant  certainty  equivalent  for 
an  attribute  even  uhen  the  other  attribute's  value  varies.  For 
example/  if  your  certainty  equivalent  for  attribute  one  (ranging 
from/  say/  0  to  100)  is  always  constant  (say/  60)  over  a  subrange 
(say/  less  than  3S0)  of  attribute  two  (ranging  from/  say/  200  to 
400)/  then  a  good  place  to  subset  the  range  would  be  from  200  to 
350  and  350  to  400.  This  way/  over  the  200  to  350  range/  some 
utility  independence  properties  will  hold. 

Would  you  like  to  see  your  original  answers  again'^ 

1)  yes 

2)  no 
Choice:  I 
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Figure  4.39  Previous  Responses  for  Pa  C.E.'s  (1st  try,  MP  2) 


These  are  the  choices  made  for  PARRIUE 
by  varying  PDESTROY  in  terms  of  the 

(PA  ,■  PD  )  outcome: 

(  80,  50)  -  C0.5(  100.  50)  ;  8.5(  60,  50)3 

(  80,  75)  *•  C0.5(  100,  75)  ;  0.5(  60,  75)3 

(  80,  63)  ~  C0.5(  100,  63)  ;  0.5(  60,  63)3 

(  70,  100)  '  C0.5(  100,  100)  ;  0.5(  60,  100)3 

(  80,  88)  C0.5(  100,  88)  ,•  0.5(  60,  88)3 

Hit  any  key  followed  by  return  to  continue: 


‘»V 


IV»VI 


Figure  4.40  Previous  Responses  for  Pd  C.E.'s  (1st  try,  MP  2) 


These  are  the  choices  made  for  POESTROY 
by  uaryiny  PPRRIUE  in  terms  of  the 


(PA 

f 

PD 

) 

ou tcome: 

(  100, 

881 

- 

t0.5( 

100, 

100)  ; 

0.5( 

100, 

50)1 

(  80, 

88) 

- 

C3.5( 

80, 

100)  ; 

0.5( 

80, 

50)] 

(  70, 

95) 

•>* 

C0.5( 

70. 

100)  ; 

0.5( 

70, 

50)] 

(  60, 

95) 

C0,5( 

60, 

100)  ; 

0.5( 

60, 

50)  ] 

(  90, 

83) 

*** 

C0.5( 

90, 

100)  ; 

0.5( 

90, 

50)  ] 

Hit  any  key  followed  by  return  to  continue: 
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Figure  4.41  Decomposition  of  Ranges  Rechosen  (1st  try,  MP  2) 


( 

I 

« 

i 

1 


I 


\ 

{ 

I 


Please  indicate  which  operation  you  want  to  perform, 

1)  Return  to  options  menu. 

2)  Perform  the  analysis  ouer  a  subset  of  ranges. 
Choice:  2 


this  lesser  range  (fig.  4.42).  Now  his  responses  to  the  ten 
lotteries  (fig.  4.43  -  4.52)  indicated  that  Pa  was  utility 
independent  of  Pd  (fig.  4.53). 

Assess  Conditional  Utility  Functions  and  Obtain  Scaling 
Constants . 

After  answering  the  questions  used  to  build  the 
conditional  utility  curves  (fig.  4.54  -  4.56),  his  graphs 
were  presented  for  him  to  see  (fig.  4.57  -  4.64).  He  was 
curious  about  how  they  could  be  used  in  an  actual  problem. 
We  explained  how  they  could  be  compared  between  mission 
planners  and  actual  mission  success  to  see  which  was  the 
best  representation  of  utility,  or  how  they  could  be 
continually  reassessed  over  time,  depending  on  changing 
conditions,  and  the  progression  of  a  decision  maker’s 
preferences  over  time  could  be  traced.  Finally,  the  graph 
represents  information  which  will  tell  a  decision  maker 
immediately  if  he  prefers  an  outcome  of  (70,  80)  or  (75, 
75)  . 

C o n s i s t e n c y  C h e eking . 

Major  Stan  felt  good  about  the  program’s  ability  to 
reflect  his  preferences.  However,  it  was  difficult  to  ask 
specific  questions  about  preferring  particular  outcomes 
which  were  close  together  on  the  utility  graph  because  of  a 
perspective  distortion.  This  is  a  major  critique  item  in 


the  next  section. 
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Figure  4.42  Attribute  Information  (2nd  try,  MP  2) 


Please  enter  your  first  attribute.  If  the  attribute  is  over 
10  characters  Icny^  please  abbreviate  it  to  be  10  characters. 

attribute  nanet  PARRIUE 

Uhat  units  is  this  attribute  measured  in'^i  PA 

Please  enter  the  least  and  most  preferred  values  this  attribute 
can  be  —  (to  the  nearest  whole  number!. 

least  preferred:  60 
most  preferred:  100 

Please  enter  your  second  attribute.  Ayain^  please  insure  it 
does  not  exceed  10  characters  in  length. 

attribute  name:  PDESTROY 

Uhat  units  is  this  attribute  measured  in?:  PD 

Please  enter  the  least  and  most  preferred  values  this  attribute 
can  have  —  (to  the  nearest  whole  number). 


least  preferred:  SO 
most  preferred:  90 

Hit  any  key  followed  by  return  to  continue: 
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Figure  4.44  Lottery  for  Pa  at  (2nd  try,  MP  2) 


In  t«rM  of  tho  (PA  ,  PO  )  outcon*^ 

plo«M  ontor  ifour  oalut  for  tho  cfUMiion  Mrkt  88 


\ 


i 


•v  .".'vHiwi'tsw: 
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Figure  4.45  Lottery  for  Pd  at  (2nd  try,  MP  2) 


4 


•I 
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Figure  4,46  Lottery  for  Pa  at  Pd  ^5  (2nd  try,  MP  2) 
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Figure  4.47  Lottery  for  Pd  at  Pa  (2nd  try,  MP  2) 


In  icTMS  of  th*  (PA  ,  PO  )  ouicoM^ 

picas*  antar  v^our  ualua  for  tha  question  narki  78 


Figure  4.48  Lottery  for  Pd  at  Pa  (2nd  try,  MP  2) 


In  Un*s  of  th*  (PA  ,  PO  )  outco***^ 

ploos*  ontor  j^our  o«lu*  for  th*  quostion  narki  88 


Figure  4.49  Lottery  for  Pa  at 


(2nd  try,  MP  2) 


In  t«rMS  of  th#  (PA  ,  PO  )  ouicoM^ 

ploas*  cntop  v^our  oaluo  for  tho  quostion  Mrki  80 
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Figure  4.51 


Lottery  for  Pa  at  Pd  (2nd  try,  MP  2) 


In  t»rms  of  th«  (PA  ,  PD  )  outcon*/ 

pl*as«  •nt^r  cjour  u«lu*  for  th*  question  nerkt  80 


i!  7  ,  i 


r  1  'DO  .  g.'j  ) 


p, 


6u  ,  S'j  j 
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Figure  4.52  Lottery  for  Pd  at  Pa  (2nd  try,  MP  2) 

•  /  J 


[  i 


In  t»r»is  of  tho  (PA  ^  PD  )  outcome^ 

ploas«  ontor  ^ur  valu*  for  th*  question  mark;  78 


I 
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Figure  4.53  Utility  Independence  One  Way  Indicated  (2nd  try,  MP  2) 


Sine*  ijour  r*spons*s  indicai*  that  PA 
utility  indapendant  of  PD  , 

your  utility  function  can  easily  b«  assessed  by  developiny 
three  naryinal  utility  curves  for  the  attributes.  To  do  thiS/ 
you  will  be  shown  additional  lotteries  for  which  you  must 
enter  your  certainty  equivalents. 


Hit  any  key  followed  by  return  to  continue: 
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Figure  4.54  C.E.  for  Pd  Marginal  Utility  Curve  Determination  (at  Pa  .  ) 
(2nd  try,  MP  2) 


In  terms  of  the  (PA  ,  PO  )  outcome^ 

please  enter  your  ualue  for  the  “?*«  88 


iil'J  \ 


I  bU 


I  bU  ,  ^‘O 
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Figure  4.55  C.E.  for  Pa  Marginal  Utility  Curve  Determination  (2nd  try, 
MP  2) 
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Figure  4.56  C.E.  for  Pd  Marginal  Utility  Curve  Determination  (at  Pa  ) 
(2nd  try,  MP  2) 


I 
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Figure  4.57  Viewpoint  1  (MP  2) 


) 


Figure  4.61  Viewpoint  5  (MP  2) 
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4.2.4  Comments  and  Critiques 

Both  officers  were  impressed  with  the  potential  of 
multi-attribute  utility  theory.  Major  Case,  in  particular, 
had  previously  worked  at  trying  to  elicit  preferences  from 
Tactical  Air  Force  personnel,  and  was  appreciative  of  the 
structure  the  program  lent  to  the  process. 

They  both  were  concerned,  however,  over  the 
subjectiveness  of  the  Pa  attribute.  An  accurate  model  to 
estimate  Pa  would  have  to  be  developed  before  reliance  could 
be  placed  on  using  it  as  an  attribute. 

Both  officers  commented  on  how  they  preferred  a 
technique  which  was  representative  of  an  individual’s 
preferences.  It  seems  some  expert  systems  are  being 
developed  which  are  not  powerful  enough  to  assess  situations 
as  well  as  humans,  so  nobody  agrees  with  them.  Multi- 
attribute  utility  theory  is  flexible  enough  to  be  used  in 
these  instances  since  rather  than  tell  a  decision  maker  what 
to  do,  it  merely  maps  his  preferences  for  him. 

The  biggest  problem,  however,  was  one  of  information 
portrayal.  If,  for  example,  the  graphs  had  been  presented 
on  a  touch  screen,  it  would  have  been  possible  to  map  points 
on  the  graph  back  to  a  specific  utility.  As  it  is  now, 
perspective  effects  make  it  difficult  to  find  actual  utility 
value  points. 


I 


r 
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CONCLUSION 
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During  the  development  of,  and  application  of,  the 
utility  assessment  graphics  program,  a  number  of  areas  were 
uncovered  which  need  modification  or  expansion.  Even  so,  we 
feel  the  program  has  merit  as  a  tool  for  practical  problems 
of  choice  involving  only  two  attributes. 


I 

I 


5.1  Extensions  and  Areas  for  Further  Research 

Based  on  our  experience  in  developing  and  applying  the 
two-attribute  utility  program,  the  following  areas  are  those 
further  work  is  needed. 

The  first  extension  is  more  of  a  modification.  During 
the  course  of  the  project,  we  grew  increasingly  frustrated 
by  the  lack  of  flexibility  of  the  DI-3000  graphics  package 
(in  particular  with  the  contouring  package).  Because  the 
specific  application  it  was  designed  for  was  terrain 
contouring,  it  was  difficult  to  accomplish  many  things  a 
more  generalized  graphics  package  would  provide.  Also,  as 
mentioned  earlier,  hardware  which  allows  user  interaction 
(such  as  a  touch  screen,  mouse,  or  joystick)  for  finding 
utility  values  would  prevent  the  perspective  distortion 
ef  fects . 

As  for  the  program  itself,  its  major  areas  of 
additional  work  required  are  in  the  incorporation  of  more 
pre-spec  1 f ied  utility  functions  and  consistency  checking.  A 
consistency  check  for  decision  makers  forced  to  use  the 


direct  assessment  option  is  desperately  needed  since  the 
process  is  so  difficult  to  perform.  A  consistency  checking 
routine  after  the  program  is  completed  would  be  a  nice 
feature  also.  Since  we  mentioned  the  difficulty  of  direct 
assessment,  we  shall  reiterate  the  need  for  a  procedure 
which  helps  the  decision  maker  focus  in  on  the  two-attribute 
certainty  equivalents  that  are  required  for  scaling  the 
attributes. 

There  are  also  problems  with  the  scale  of  the  utility 
axis  on  the  utility  graphs.  They  range  from  0  to  10  instead 
of  from  0  to  1.  This  was  due  to  the  automatic  labeling 
function  of  the  Contouring  Package.  Any  future  work  should 
insure  the  axis  is  labeled  according  to  the  0  to  1  scale. 

As  a  final  extension,  we  would  recommend  the 
incorporation  of  fuzzy  attributes  into  the  consequences. 
Particularly  in  the  case  of  mission  planning,  the  use  of  a 
fuzzy  number  for  Pa  is  much  more  realistic.  Good  articles 
on  the  topic  of  fuzzy  decision  analysis  are  (Litchfield 
1976)  and  (Tong  1979). 

5.2  Concluding  Remarks 

By  now  the  benefits  of  mul t i -at t r ibut e  utility  theory, 
even  limited  to  the  two-attribute  case,  are  evident.  The 
ability  to  break  a  problem  down  into  smaller  ones  has  long 
been  advocated  as  a  way  of  making  it  easier  to  solve  (i.e., 
divide  and  conquer).  In  the  same  way,  the  use  of  this 


nethodology  to  develop  a  decision  maker’s  utility  is  made 
simpler  by  the  exploitation  of  the  four  possible  utility 
independence  properties.  As  is  shown  by  the  application  of 
even  the  simple  program  developed  here  to  a  real  world 
problem,  multi-attribute  utility  theory  forces  a  decision 
maker  to  view  a  problem  in  the  structured,  consistent 
fashion  necessary  to  help  him  achieve  a  set  of  consequences 
and  their  respective  utilities.  Once  he  has  these 
utilities,  to  make  the  beat  decision,  he  has  only  to 
maximize  expected  utility  to  determine  which  alternatives  to 
choose . 

In  regard  to  what  this  project  has  meant  to  the  author; 
it  has  been  a  progression  towards  a  fuller  understanding  of 
the  range  and  depth  of  utility  theory  This  project  has 
deepened  her  perception  of  the  field  of  decision  analysis  in 
general,  and  has  been  a  natural  extension  to  her  previous 
work  in  the  Decision  Aids  Section  of  RADC.  As  an  Air  Force 
officer,  being  able  to  see  the  results  of  applying  the 
utility  assessment  graphics  program  to  a  real  world  problem 
has  been  rewarding  and  the  knowledge  gained  from  this 
experience  can  be  used  in  future  assignments.  Finally,  from 
a  computer  systems  standpoint,  the  ability  to  learn  a  new 
editor  and  operating  system  (VAX  11/780),  as  well  as  using  a 
graphics  package  with  which  no  previous  experience  was  had, 
has  given  the  author  an  advantage  in  her  next  assignment 
since  their  use  will  be  required. 
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APPENDIX 
Program  Listing 
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Program  draw( Input,  output)) 


labol 

roitarti 


const 

attsiza  >  10) 
wrdsizs  ■■  40) 
stsiza  B  4) 


tgpa 

attrlbuta  ■  packad  arragC i. . attsi zal  of  char) 
wordstr  >  packad  arrait C 1.  .  lardmi za3  of  char) 
parrag  ■  packad  arragCl:  .  stsizal  of  char) 
sarrag  «  varg ingCsts 1 zaj  of  char, 
ranga  >  intagari 
lotracord  “  racord 
attrib  :  attributa. 
pos  :  ranga) 
ans  :  ranga) 
and) 

tarrag  »  arragCl. . 101  of  lotracord) 
gtabla  »  packad  arragCl. . 11< 1. . 113  of  raal) 
worldarrag  ■  packad  arragCl.  .33  of  raal) 
jstarrag  ■  arragCl.. 23  of  intagar) 


i  :  intagi 
attrlbuta 
minimumli 
lottabla 
zda 1 1  an. 
gdallan.  i 
zdal Ian. 
laldmln.  w 
zaisand. 
zdalpln. 
gazsand.  i 
gdalpln.  i 
zassand. 
zdalpln. 
zlabjst. 
znmlnor . 
znmlnor. 
ge_on  :  b 
rarun_opt 
attlscala 


1.  attributa2  :  attrlbuta) 
mlnlmum2.  mazlmuml.  mazlmum2  : 
tarrag) 
zratmln. 
gratmln. 

zratmln.  gb.  zb.  gc.  zc  :  raal) 
Idmaz.  aga.  at.  zazsbag. 
zdaltlk.  zdallab.  zdalbas. 
zskpval.  gazsbag. 
gdaltlk.  gdallab.  gdalbas. 
gskpval.  zazsbag. 
zdaltlk.  zdallab.  zdalbas. 
zskpval  :  worldarrag) 
glabjst.  zlabjst  :  jstarrag) 
zlablfg.  gnmlnor.  glablfg. 
zlablfg  :  Intagar) 


ranga) 


zlablfg  :  Intagar) 
oolaan) 

Ion  :  Intagar) 

.  att2scala  :  attrlbuta) 


{  Thasa  procaduras  ara  aztarnal  to  this  program.  Thag  ara  wrlttan  In  > 

<  Fortran,  and  rasldant  In  tha  DI3000  Softwara  Graphics  Packaga  undar  > 

<  VAX/VMS.  > 


procadura  JHSTROlXstdascr  wstrg  :  wordstr))  aztarn) 

procadura  JF0NT(1  :  Intagar))  aztarn) 

procadura  JJUSTCl.j  :  Intagar))  aztarn) 

procadura  JSIZECz.g  :  raal))  aztarn) 

procadura  JOPEN)  aztarn) 

procadura  JROPENll  :  Intagar))  aztarn) 


KilDU-iV: 


proctdurt  JRCLOSd  ;  inttgar);  axterni 
procadur*  JFRAMEi  axtarni 
procadura  JCOLQRd  :  IntagaDj  aitarni 
procadura  JLSTYLd  :  intagar);  axtarni 
procadura  JLUIOEd  :  intagar )>  axtarni 
procadura  JCLOSEi  axtarni 
procadura  JBECINi  axtarni 
procadura  JDlNITii  :  intagar);  axtarn; 
procadura  JDEVONii  :  intagar);  axtarn; 
procadura  JVSPAC ( uii  x .  g •  z  :  raal);  axtarn; 
procadura  JVPORT(u> Xf g> z  :  raal);  axtarn; 
procadura  JUINDa<ia<  x.  g>  z  ;  raal);  axtarn; 
procadura  JliOVECxiy  :  raal);  axtarn; 
procadura  J3M0VE(x<yiZ  :  raal);  axtarn; 
procadura  JPLANE<x<g<z  :  raal);  axtarn; 
procadura  JBASE(x.g>z  :  raal);  axtarn; 
procadura  JORAMix.g  ;  raal);  axtarn; 
procadura  JPAUSEd  :  intagar);  axtarn; 
procadura  JSSINI;  axtarn; 

procadura  JSSPRQ(mi  n<  a<  a  :  uorldarray );  axtarn; 

procadura  JSSAXS(ffl<  n  :  uorldarray;  z  :  raal;  a  :  intagar;  o  :  uorldarray; 

y  :  raal;  b  :  intagar;  h  :  jatarray; 

Pi  ri  a  :  uorldarray);  axtarn; 
procadura  JSSMKg  :  gtabla;  ii  ji  h  :  intagar;  mi  ni  Oi  p  :  raal; 

g  :  intagar;  r  :  raal);  axtarn; 
procadura  JOEVaF<i  ;  intagar);  axtarn; 
procadura  JOENO(i  :  intagar);  axtarn; 
procadura  JEND;  axtarn; 


<  This  is  a  macro  to  claar  taxt  from  tha  dialog  araa  > 
procadura  HOnE_N_CLEAR;  axtarn; 


<#****#* *«-a***a******aa***a-a************************a*a*a*a*******a********> 
<*  a> 

<a  INITGRAPHICS  initializas  tha  graphics  davicas  usad.  a> 

<a  a> 

<aaa*«a*a-aa***a«*»««aa**aaa***a*a*a***a«*aa*a«a«**»a«a«****aaa*a*««*»**«««a> 
procadura  INITGRAPHICS; 
bag  in 

JBEGIN; 

JDINlTd); 

JDEVON(l); 

JVSPAC(-1.0.  l.Oi  -0.7-  0.7); 

JVPQRT<-1.0i  t.Oi  -0.  7i  0.7); 

JWINOOiO.  Oi  too.  Oi  0.  0.  70.0); 
and;  <INIT0RAPHICS> 


<a 

<•  ENDGRAPHICS  daactivatas  tha  graphics  davicas. 
<a 


*a> 

*> 

a> 

a> 


***> 


proodur*  ENDGRAPHICS; 
bag  in 

JOEVOF<l)i 

JDEND(l)i 

JENOi 

and; 


<*  ♦> 

<•  PUTVAL  uiritts  vail  and  val2  in  tha  position  dttarninad  bg  x  and  g.  •> 

(•  Valuas  ara  surroundad  bg  paranthasas  and  saparatad  bg  a  comma.  •> 

<*  a> 

<a*»*«*«**«««*»*«*««***««*«*»«*«a«*»«*«»a*«*aa***«a«a*«aa***»*«««a******««a> 


procadura  PUTVALCzj  g  :  raal:  vall>  val2  :  parrag); 
bag  in 

jnaVEix.  g); 

JHSTR0(5Sstdascr 
JMQVEix  -<■  1.  0.  g); 

JHSTROC'/.stdascr  vail); 

JMOVEix  *  11. 0.  g); 

JHSTRO(Xstdascr 
JMQVEix  *  13.0.  g); 

JHSTRG(%stdascr  val2); 

JMaVE<i  *  23.0.  g>; 

JHSTRO<y.stdascr  ')'); 
and;  <PUTVAL> 


<a*«a***a*****«*a«***a**«***a«aa««**a»*«a«*«*«»a*«*aa*«*««a«aa**««aaaa«a««a> 
<*  #> 
<*  PUTIVAL  puts  vail  in  placa  surroundad  bg  paranthasas.  and  val2  in  a  *> 
(•  diffarant  placa.  also  surroundad  bg  paranthasas.  a> 

<a  a> 
{••*«**aa**a****a»**a»a*««*«**««««*«»«a»a**«aaaa»*««a*aa*««***aa«*a*«*««*aa> 


procadura  PUTlVAL(x.  g  :  raal;  vail.  val2  :  parrag); 
bagin 

jnovEix.  g); 

JHSTRGCXstdascr  '<'); 

JMOVEix  +  1.0.  g); 

JHSTRGOCstdascr  vail); 

JMOVEii  +  11.0.  g); 

JHSTROCXstdascr  ')'); 

JnOVECx.  g  -  30.  0); 

JHSTRGlXstdascr  '('); 

JMOVEix  +  1.0.  g  -  30.0); 

JHSTR0(*/.stdascr  val2); 

JMOVEU  +  11.0.  g  -  30.0); 

JHSTRGiXstdascr  ')'); 
and;  <PUT1VAL> 


<«a**«**a«aa««a«««aaa***«a«*a«*aaa»*«aaaa«aaa«aa«««aa«aaaa»aa«a«»«aa«aaaaaa> 
<•  a> 

{•  CONVERT  parforms  tha  cofivarslon  nacassarg  to  changa  an  intagar  into  a  a> 
(•  string  aiiuivalant  uhich  can  ba  printad  bg  tha  JHSTRG  procadura.  •> 

<•  a> 
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<******************-****************************************-****************> 

proc»dur«  CONVERT(  intg»r  :  intagari  v«r  uird  :  parrag); 

var 

tamp  :  sarragi 
bag  in 

tamp  : »  DECIintgar.  atsiza.  !>•  <DEC  1«  a  pradaclarad  patcal  functlon> 
lard  :  •  tamp ■ 
and;  <CONVERT> 


<*  *> 

<a  WRITEAODV/AL  prints  tha  lottarg  valuas  naadad  bg  CHECKADDIND  to  datar-  a> 
(•  mina  whathar  additiva  indapandanca  holds.  •> 

<*  *> 

<****#•*•*••««**«*•**«*••••*•*«•• a««*«»*a*****«««««*«««a**»*«««*««******»««> 
procadura  URITEAODVAL<mint<  maxl>  min2<  mai2  ;  intagar;  ipos>  gpos  ;  raal); 
var 


small;  smaiS; 
sminli  smin2  :  parrag; 
bagin 

CONVERTlmatl.  smad); 

CONVERT (mini,  smint); 

C0NVERT<mai2.  smai2)i 
CONVERT (min2;  sfflin2); 

PUTVAL(zpoS;  gpoS;  small;  smai2>j 
PUTVAL(ipoS;  gpos  -  30.0;  sminl;  smin2>; 
PUTVAL(ipos  40.0;  gpoS;  small;  smin2>i 

PUTVAL(ipos  +  40.0;  gpos  -  30.0;  sminl;  smax2); 
and;  <URITEAODVAL> 


<*****a*********************************************************a***** ****•> 
<*  *> 

<a  GETSTRINO  gats  tha  particular  valuas  naadad  for  lottarias  in  a  varging  •> 

<a  arrag  format.  *> 

<*  *> 

<***#a#aaa**«*******#****aa*<Hf******a***a***********»*a*********a*****a#***> 
procadura  GETSTRINOiattl  :  attrlbuta;  mini;  mail;  min2;  mai2  :  ranga; 

var  i  :  intagar;  var  si;  s2;  s3;  s4;  sS;  s6  :  sarrag; 

t  :  tarrag); 


bagin 

if  ten.  attrib 
bag  in 


attl  than 


si 

m 

DEC (mail;  stsiza;  1); 

s2 

m 

DECCtCn.  pos; 

stsiza. 

1); 

s3 

m 

DEC(minl;  stsiza.  1); 

s4 

m 

DEC(tCi].  pos. 

stsiza. 

1): 

s9 

m 

s6 

m 

DECCtCi].  pos. 

stsiza. 

1 ); 

and 

alsa 

bag  in 

si 

m 

DECCtCil  pos. 

stsi za. 

1); 

s2 

m 

DEC(mai2;  stsiza.  1); 

s3 

m 

DECCtCil.  pos. 

stsiza. 

1  >; 

s4 

m 

DEC(min2;  stsiza.  1); 

s9 

m 

DEC(tCn.  pos. 

stsiza. 

1); 
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*6  '  ?  'I 

tndi 

«ndi  {eETSTRINQ} 


<*  *> 

<•  SETUP  draws  a  lottary  frama  with  . S't  on  it.  but  prints  no  valuas  nor  a) 
(a  roads  tha  c.  a.  a> 

<a  a> 

<aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa> 


procaduro  SETUP; 
var 

strg  :  wordstr; 
bag  in 

JCaL0R(6)i 
JSIZE(2.  0.  2.0); 
v)JUST(2.  2); 
jnaVE(6S.  0.  43.0); 
J0RAU(40.  0.  30.0); 
JDRAU(6S.  0.  13.0); 
JJUSTd.  2); 
jriOVE<30.  0.  40.0); 
JHSTRG(%stdaser  '3'); 
JJUSTil.  3); 

UMOVEOO.  0.  20.0); 
JHSTRCiXstdaser  'S'); 
JMOVE<33.  0.  32.0); 
JS1ZE(4.  0.  4.0); 
JHSTROiXstdaser  ''"): 
JSIZE<2.  0.  2.0); 
and;  <SETUP> 


<aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa> 
<a  a> 

{a  DRAULOT  adds  appropriata  valuas  to  tha  lottarg  drawn  bg  SETUP  Tha  a> 

(a  c.  a.  's  ara  usod  to  holp  dotarmino  indapondanca  propartias.  a> 

<a  a> 

<aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*«a«***.aaaa> 

procaduro  DRAWL0T< att 1 •  att2  :  attributa;  mini.  mail.  min2.  mai2  :  ranga; 


var  indoi  ;  intagor;  tab  :  tarrag); 

var 

strgl.  strg2. 

strg3.  strg4.  strg3.  strg6  :  sarrag; 
si.  s2  :  parrag; 
dummgchar  :  char; 

I.  g  :  raal; 


bag  in 

SETUP; 

CETSTRING<attl.  mini.  mail.  min2.  mai2.  indai.  strgl.  strg2. 

strg3.  strg4.  strg3.  strgA.  tab); 

JJUSTd.  2); 
si  : “  strg3; 
s2  : ■  strg4; 

PUTVAL(67  0.  13.0.  tl.  s2); 


si  : ■  strg3; 
s2  : m  strg6; 


PUTVALCS  0.  30  0.  «1.  s2>i 


«1  ■■  strgti 
%2  :  ■  tt-rgai 

PUTVAL(67  0.  49.0.  >1.  «2)i 

«ndi  <DRAWL0T> 


<*  *> 

<•  LOTTERIES  h««  DRAWLQT  prttant  tha  lottariai.  and  it  raadt  in  tha  car-  a> 
(•  taintg  aguivalant*  for  thaia  into  an  array.  a> 

<♦  *> 

procadura  LOTTERIES(attl<  att2  :  attributa.  mini.  mail.  min2.  mai2  :  ranga. 


var  lottab  :  tarray): 

var 

a.  i  :  intagari 
dummychar  :  char, 
bag  in 

HaHE_N_CLEARi 
for  r  T-  1  to  10  do 
wr italn; 

iiiritaln<  '  You  uiill  now  ba  <hown  a  bariat  of  lottaria*  for  which  you'); 
writalni 'mu«t  antar  your  eartaioty  ayuivalants: ' )< 
for  i  : ■  1  to  9  do 
writaln; 

writo<'Hit  any  kay  followad  by  raturn  to  continua:  '); 
raad In ( dummychar ) ; 

HOME_N_CLEARi 
INITCRAPHICSj 
a  :  ■  0) 

for  i  : m  1  to  10  do 
bag  in 

a  :  >  a  4-  1  j 
JOPENi 

DRAWLOTiat t 1 .  att2.  mini.  mail.  min2.  mai2.  a.  lottab). 

JCLOSEf 

writalni'In  tarma  of  tha  ( '. attlacala.  '.  '.att2«cala.  ')  outcoma.  '); 
wr i ta ( 'p laaia  antar  your  valua  for  tha  guattion  mark:  ')i 
raad In ( lottab C 1 1  ans)i 
JFRAMEi 
HOME_N_CLEARi 
and; 

and;  <LOTTERIES> 


<aa««**a****««*a**a*«*»*»******a«*a**a»*»**a*****«»**a*»»a»«aa***a**««**aa«> 
<a  a> 

<a  WELCOME  if  a  short  Introductory  paragraph  to  tha  program.  *> 

<•  *> 

<aa*#aaaaa*a*«aa«*aa«*a**«a*»a»«*«a«a*a«**»««aaaa«a*«*»*»a*«*«»«a«*«a«a*a«a> 
procadura  WELCOME; 
var 

i  :  intagar; 

dummychar  ;  char; 


D«g  in 

HOME_N_CLEARi 
for  i  :•  1  to  8  do 
ur i to  Ini 

writtln(  '  This  progran  is  a  ganaric  multi-attributa  utility  thaory'li 

iiiritoln( 'basad  mathodologg  for  assisting  a  dacision  makar.  From  intar-'); 
writoln< 'acting  with  tha  dacision  makar>  it  will  dotarmino  tha  dacision'); 
writoln( 'makar ' 's  utility  function  ovar  two  usar  spacifiad  attributas.  '); 
wr italnC 'From  thara>  it  will  prasant  tha  utility  function  graphically) '); 
writolnC'at  tha  angla  of  rotation  dasirad  by  tha  dacision  makar.  '); 
for  i  : •  1  to  10  do 
wr italn; 

wr i ta ( 'Flaasa  antar  any  charactar  followad  by  a  roturn  to  continuo:  '); 
road  In  <  dummy char ) ; 

HOME_N_CL£AR; 
and;  {UELC0ME> 


<aaa*aaaa*«*a*aaaaa*»«*aaaaa««aa*«*«a«a«a«*aaa«*«**a«aa«a«a«*««*»«*«««««a«> 
<*  a> 
<a  ATTRIBUTES  asks  tha  dacision  makar  for  his  attributas  and  thair  «> 
<a  rangas.  a> 
<*  a> 
<aa*a*a*aaaaaa**a'»«aaaa*«a-a**aaaaaa*a*a«*a»aa-a*«»*«a**a«aaa*a*aa  #«••#«#«#*> 


procaduro  ATTRIBUTES (var  attl.  att2  :  attributa;  var  mini.  mail.  fflin2.  max2  : 

ranga); 

var 

i  :  intagor; 
dummychar  :  char; 
bog  in 

for  1  1  to  3  do 

writaln; 

writalni'  Plaasa  antar  your  first  attributa.  If  tha  attributa  is  ovar'); 
writaln<'10  charactars  long<  plaasa  abbraviata  it  to  ba  10  charactars.  '); 
writaln; 

writo( 'attributa  nama:  ')< 
raadlniattl ); 
for  i  : >  1  to  2  do 
writaln; 

writai'Uhat  units  is  this  attributa  maasurod  in?:  '); 
raadln(attlscalo); 
for  i  : ■  1  to  2  do 
writaln; 

writoln(  '  Plaasa  antar  tha  laast  and  most  prafarrad  valuas  this  attributa'); 
writaln<'can  bo  —  (to  tha  naarast  whola  numbar).  '); 
wr  italn; 

writo< 'laast  prafarrad:  '); 
road (mini ) ; 

writa( 'most  prafarrad:  '); 
raadlnimail ); 
for  i  : ■  1  to  2  do 
writaln; 

writaln<'  Plaasa  antar  your  sacond  attributa.  Again,  plaasa  insura  it'); 

wr i ta In ( 'doos  not  oxcoad  10  charactars  in  langth.  '); 

writaln; 

wr i ta ( 'attr i buta  nama:  '); 

raadln(att2>; 

for  i  :  •■  1  to  2  do 

wr italn; 
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writ«<'Uh«t  unit*  ii  this  attribut*  mcaturtd  in?:  '); 
r««dln(att2«c«l«)i 
for  i  : B  1  to  2  do 
wri tolnj 

writolnC'  Ploatc  cntor  tho- loast  and  most  prafarrad  valuas  thi*  attributa'); 
writalni'ean  hava  —  (to  tha  naaraat  wbola  numbar).  ')< 
wr i ta Ini 

uritai'laamt  prafarradj  ')• 
raad («in2> • 

wrlta( 'iBoat  prafarrad:  ')• 
raad In (mai2 ) • 

tarito('Hit  any  kay  followad  by  raturn  to  continua:  '>i 
raad In (dummy char )i 
andi  <ATTRIBUTES> 


<«a«aa*a*««*«*««a«a«a***««*****a*«»««**«»*aaaa**a«»«aaa«aaa«aaa«a*aaa*a«aa*> 
<a  a> 
<*  DEVTABLE  builda  a  tabla  of  valuas  for  aach  attributa  at  (min.  .25.  .5.  •> 
(a  .75.  and  max)  valuas.  a> 
<*  •> 
<aaa«**aaaaa**»«a***a*a**«a#aa»a*«aaaaaaa»«««a«**«»«*aa«a«aaa«a**«a**«a«a*a> 


procadura  OEVTABLE(atti.  att2  :  attributa.  mini.  mail.  min2.  mai2  :  rangai 
var  tabla  :  tarrayli 

bag  in 

tab laC 1 J.  attr i b  ; •  attl;  <For  axampla.  tablaCll  will  ba  usad  to  add> 
tablaCll.pos  :«  min2i  <valuas  to  a  lottary  assassing  tha  c.  a.  of> 

<attrlbuta  1  at  attributa  2's  minimum  valua> 

tab  loC21.  attr  ib  :  <■  attli 

tablaC2].  pos  : ■  R0UND((mai2  -  min2>/2  *  min2)i 
tabloC33. attrib  att2i 
tablaC31. pos  maili 
tablaCAl. attrib  :■  attli 

tablaCAl.pos  :•  RO(JND(  (mai2  -  min2>/4  *■  min2>i 
tablaC5].  attrib  :•  att2i 

tablaCSl.pos  :•  RO(JNO((maxl  -  minl)/2  minl)i 
tablaC61. attrib  :•  att2i 

tablaC6].pos  ROUNO((mail  -  niinl>/4  minl)i 

tablaC?]. attrib  :•  attli 

tablaC7].pos  :•  mai2i 

tablaCei. attrib  att2: 

tablaCSl.  pos  :•  minii 

tablaC93.  attrib  : -  attli 

tablaC93.pos  R0UN0(((mai2  -  min2>/4)  •  3  ♦  min2>i 
tablaClOl. attrib  att2i 

tablaClOl.  pos  RaUND(((mail  -  mlnl>/4>  #3-4-  minl)i 
andi  <DEVTABLE> 


<a 

<a  LOTFRAflE  is  a  ganaric  procadura  for  drawing  lottary  anglas 
<a 

<a*a««a««a««*«*a«aa*«*««*«*«*aa*«««*«««a««aa«a«aaaaaa«a«a«««« 
procadura  LOTFRAnE( icord.  ycord.  idisp.  ydisp  :  raal>i 
bag  in 

Jf10VE(xcord.  ycordii 

JORAW(icord  -  idisp.  ycord  -  ydisp)i 
JORAU(icord.  ycord  -  (ydisp  •  2))i 
andi  <LOTFRAME> 


a> 
a> 
a> 
a> 
♦  > 


<**«*•«*•««****«*««**«**••***•••««••«•*•***•*««*««*«*«•«•«•«*«»*»««*«««***«> 


<*  *> 

<*  CHECKADDINO  i<  used  to  present  additional  lotteries  to  determine  if  •> 

<*  the  additive  independence  property  holds  once  mutual  utility  indepen-  •> 
<*  dence  has  been  determined.  •> 

<*  e> 

{**«•****«««*••««**••«•**««••••«««**•••««**«••«*•*««•*«***•••****•*«*«•***•> 


procedure  CHECKADDINO ( tab  :  tarray;  var  addindep  :  boolean); 
var 

!•  y  :  real; 
choice  :  integer; 

aniuerl<  ansuierS  :  varyingCSI  of  char; 
begin 

JFRAME; 

HaME_N_CLEAR; 

jaPEN; 

JSIZE<2.  0.  2.0); 

JCOLOR ( 6 ) i 

LaTFRAME<20.  0.  4S.  0,  15:0.  15.  0); 

LQTFRAMECAO.  0.  45  0.  15:0.  15.0); 

JJUSTd.  1); 

I  ;  ■  6.  0; 

y  :  »  37.  0; 
repeat 
repeat 

JMQVEli.  y); 

JHSTRGC/.stdescr  '5'); 

,  :  ■  1  ♦  40.  0; 
unti  1  <  >  60.  0; 

I  :  >  6.  Oi 
y  :  y  -  14.  0; 

JOUST ( 1 .  3 ) ; 
until  y  <  23.  0; 

>  :  -  21.  0; 
y  .  -  45.  0; 

MRITEAODVAL(minimuffll.  maiimuml.  minimum2.  ma>imum2.  i.  y); 

JCLOSE; 

writeln< 'With  respect  to  the  lotteries  below,  in  terms  of  the'); 

wr i teln < ' ( at 1 1  sea le.  '.  '.  att2scala.  ' )  outcome,  please  indicate  '); 

wr i te In ( 'wh ich  statement  corresponds  to  your  feelings  about  this  lottery: 

writeln('l)  I  am  indifferent  between  the  lotteries.  '): 
wrlteln<'2)  I  prefer  the  lottery  on  the  left.  '); 

writeln('3)  I  prefer  the  lottery  on  the  right.  '); 

wr i te (  'Choice:  ' ) ; 
read  In  <  choice); 
if  choice  •  1  then 
addindep  : *  true 
else 

add  indep  : "  false; 

HaME_N_CLEAR; 

JFRAME; 

end;  <CHECKAD0IN0> 


<•  w!T!L  firtdi  th«  values  af  c  and  b  lahicb  fit  a  utility  function  to  the 
(•  decision  Maker's  utility 
<* 


procedure  UTILlMait.  CMt  real<  var  b> 


integer i i 


dusueychar  char. 

1.  j.  loop  integers 
rMai.  rMin. 
valnte  real, 
continue  boolean, 
peg  in 

j  -  0. 

c  -  0  9. 

1  “  Oi 

continue  «  true. 
rMai  “  1. 
rmin  "  Oi 
Mhile  continue  do 
beg  in 

valnie  ■  2  •  <1.0  -  EXPisign  *  emt  *  c)) 
if  ABSCvalnx)  <  0  0001  then 
beg  in 

continue  ■  false; 

b  «  1  0/(1  0  -  EXPtsign  e  c  *  maitll 

end 

else 

begin 

1  ■  1  ♦  Ij 

l  f  1  >  39  then 
beg  in 

continue  •  falsei 

J  -  li 

endi 

if  valnw  >  0  then 


EXPisign  *  emt  *  c))  -  <1.0  -  EXPisign  *  mait  *  c>) 


else 

rMin  • 
c  . »  (rMai 
endi 
endi 


♦  rmin  )  /2.  0) 


c  “  c  *  sign, 
if  J  -  1  then 
begin 

HOfie_N_CLEABi 
for  loop  :•  1  to  9  do 
Mr i te Ini 

leritelnC'  The  prespecified  curve  used  to  approiimate  your  utility')! 
wr i te In ( ' c urve  doesn''t  match  your  values  uell  enough  to  be  used  as'ii 
writelni'an  accurate  representation  Unfortunately,  this  program'), 
wr i te 1 n <  'can  '  '  t  be  used  to  assess  your  utility.  SORRYI')! 
for  loop  :•  1  to  9  do 
wr  i  t  e 1 n i 

wrltelnl 'Hit  any  bey  followed  by  return  to  eiit  back  to  system  level.  ') 
r ead 1 n ( dummy char  > i 
HALT  I 
endi 

end.  <UTIL> 


<*  *> 

<•  SCALE  atsastas  the  user'*  prcfarcnca*  batuiaan  outcomas  to  datarmina  *> 

{•  tha  valuas  for  ky<  kt/  and  kyz  in  tha  mutuallg  indapandant  and  addi-  a> 

<•  tiva  caaas.  In  tha  additiva  ca«a>  kgz  ic  automatically  zaro.  a> 

<*  a> 

<•#••#•#•##•#*#*#••##«*••***•*••«*#•###••*#*#*•##*«»•*###«#•###«####•#•#«••> 


procadura  SCALElmoda  ;  char;  ymaz.  ymin.  zmazt  zmin  :  intagar;  attl. 
att2  :  attributai 

var  ky<  kz<  kyz  :  raal;  (calay>  icalaz>  zb>  yb< 
zCi  ye  :  raaDi 

var 

i<  choicai  yval< 
zval>  yval2>  zval2  :  intagari 
symaz<  tyfflin>  szmazj  azmin  :  parray: 
ki  aqli  a42a>  aq2b<  aqX  aq4.  tampk  :  raali 
bag  in 

HOME_N_CLEAR) 
for  i  :*  I  to  9  do 
uiritalni 

writaln('In  tarmt  of  tha  ( '< attltcala<  '>att2tcala.  ')  outcoma>  '): 

uiritalni 'Plaasa  antar  your  prafaranca.  ’)i 

uiritalni 

uiritalni'  i'.ymaz.'.  '.zmin.')  or  i'.ymin.'.  '.zmai.')')! 

uiritalni 

uiritalni '1>  I  prafar  tha  outcoma  on  tha  laft.  ')i 
uiritalni '2)  I  prafar  tha  outcoma  on  tha  right.  ')i 
uiritalni '3)  I  am  indiffarant  batuiaan  outcomas.  '>i 
uir  i  ta  i  'Choic a:  ' )  i 
raad In i choic  a ) i 
for  i  ;  “  1  to  9  do 
uiritalni 

if  iichoica  •  1)  or  ichoica  <•  3))  than 
bag  in 

uiritalni 'Mhat  amount  of  '.  attlscala.  '  would  maka  you  indiffarant  to  ')i 
writalni'tha  outcomas  balow7')i 
wr italni 

writalni'i  ?.  '.zmin.  ')*’i'. ymin.  '.'.z  max.  ')')i 
writai 'amount  of  '.attlscala.':  '>i 
raadlniyval )i 

and 

alsa 

bag  in 

wr i ta In i 'What  amount  of  '.att2scala.  '  would  maka  you  indiffarant  to  '>i 

writalni'tha  outcomas  balow7'>i 

writalni 

writalni'i'.ymin.  '.  7  )  and  i'.ymax.  '.  '.zmin.  ')')i 

wr i ta i 'amount  of  '. att2scala.  ':  ')i 

raadlni zval )i 
andi 

HOriE_N  CLEAR  I 
JOPENi 

JSIZE{2.  0.  2.0)1 
JC0L0Ri6)i 


LOTFRAf1Ei69.  0.  49  0.  29.0.  19.  0)i 
JJUSTil.  2)1 
JMQVEi90.  0.  40.0)1 


JHSTRe(*/.st<(«»cr  '.5')i 
JJUSTCl.  3)1 
JMOVEOO.  0.  20.0)1 
JHSTRO(*/.«td«scr  '.9')) 

JJUSTd.  2)1 

CONVERT ( zniini  szniin)i 

C0NVERT< imaxt  «zmai)i 

C0NVERT(  yinin.  iijfflin)i 

CONVERT  <yin«Xt  «ginaz)f 

PUTVAL(67.  0i  49.  0>  sgmax.  szidax). 

PUTVAL(67.  Of  19.  0>  sgfflin>  szniin); 

VSIZE(4.  0.  4.0); 

PUTVAL<9.  0,  30.0,  '  ?  #  '): 

JMOVE(39.  0.  30.0); 

JHSTRO(Xstd«scr  ''"); 

JSIZE<2.  0.  2.0); 

JCLOSE; 

uiritaln('In  ttrflis  of  tha  ( ',  attlscala,  '>att2scala>  ')  outcoma,  '); 
u;ritaln< 'uhat  valuas  of  '.attlscala.'  (?)  and  ',  att2scala>  '  (4)'); 
ur i tain ( 'ui 1 1  maka  gou  indiffarant  batuiaan  tha  c.  a.  and  tha  lottarg?') 
iiirita< 'Valua  of  '.attlscala,  ':  '): 

raadln<gvaI2); 

uritaC 'Valua  of  ',att2scalo.  ';  '); 

raadln<  zval2); 

JPRAME; 

HOME_N_CLEAR; 

if  flioda  ■  'n'  than 
bag  in 

casa  choica  of 
1:  bagin 

tarapk  :  «•  gb  *  (1.0  -  EXP(gc  a  ((gval  -  grain)  *  scalag))); 

aql  gb  •  (1.0  -  EXP(gc  •  ((gval2  ~  grain)  •  scalag))); 

a42a  ;•  zb  •  (1.0  -  EXP(zc  •  ((zval2  -  zmin)  •  scalaz))); 

ag2b  :•  zb  •  (1.0  EXP(zc  •  ((zval2  -  zmin)  •  scalaz)))  •  tarapk 

and; 

2  :  bagin 

tarapk  zb  •  (1.0  -  EXP(zc  •  ((zval  -  zmin)  •  scalaz))); 

aql  ;■  zb  *  (1.0  -  EXP(zc  *  ((zval2  -  zrain)  a  scalaz))); 

ag2a  ;■  gb  a  (1.0  -  EXP(gc  a  ((gval2  -  grain)  a  scalag))); 

ag2b  gb  a  (1.0  -  EXP(gc  a  ((gval2  -  grain)  a  scalag)))  a  tarapk 

and; 

3  :  bagin 

tarap  k  :  a  1.0; 

agl  ;a  ^b  a  (1.0  -  EXP(gc  a  ((gval2  -  grain)  a  scalag))); 
ag2a  ;■  zb  a  (1.0  -  EXP(zc  a  ((zval2  -  zrain)  a  scalaz))); 
a<|2b  ;  a  ag2a; 
and; 

and;  <  of  casa  > 
a(|3  :a  aql  a  aq2a; 

aq4  ;a  (-1.0  a  (1.0  ♦  tarapk))  a  aq3; 
k  :a  (0.  9  -  aq3)  /  (aql  *  aq2b  *  aq4); 
casa  choica  of 

1  :  bagin 

kg  :  a  k; 

kz  :  a  tarapk  a  k;^; 
and; 

2  :  bagin 

k  z  :  a  k; 

kg  ;a  tarapk  a  kz) 


•  ndi 

3  :  btgin 

kg  ;  ■  ki 
k 1  :  "  ki 
■ndi 

•ndi  <ot  c«««> 

kgz  :  ■  1.0  -  (kg  ♦  ki  )i 

•nd 

•  ls« 

b»gin 

•^1  gb  *  <1.0  -  EXP<gc  *  <<gval2  -  gmin)  *  ical#g)))i 
•  42a  :  «•  zb  *  <1.0  -  EXP<zc  *  <<zval2  -  zmin)  *  «cal«z)))i 
if  aql  >  ■42a  than 
kg  :  “  0.  3 

•  Isa 

kg  <0.3  -  •q2a)/<a4l  -  •42a)i 
kz  :  ■  1.0  -  kgi 
kgz  :  «  0.  Oi 
•ndi 

•ndi  <SCALE> 


I 


s'l 

¥•1 


<*  UTILITY  assontas  a  particular  utilitg  function,  and  datarminas  tha  uti-  *> 
<*  litg  of  tha  input  valua-  (of  an  attributa). 


function  UTILITY<val.  b.  c.  scala  :  raali  maiimum.  minimuai  :  intagar > . raali 
bag  in 

if  val  >  0  than 
UTILITY  0 

•  Isa 

if  val  a  maiifliun  than 
UTILITY  ;  -  1.  0 

•  Isa 

UTILITY  b  *  <1.0  -  EXP<c  *  <<val  -  minimum)  •  scala)>)i 
•ndi  <UTILITY> 


L 

1*^ 


<*  fillARRAYS  initializas  tha  world  coordinatas'  mazimoms  and  minimoms. 

<♦  It  also  locatas  tha  cantar  of  tha  mash  surfaca  to  ba  drawn  (at  arrag). 

<♦ 

<******•**♦***********♦*♦****♦*****♦***************************** 

procadura  FILLARRAYSi 

var 

1  :  Intagari 
bagin 

for  i  : “  1  to  3  do 
bagin 


& 

1*1 

L 

I 

i 

I 

I 

i 


uMwn 


wldminC 13  : •  0.  Oi 
wldmax C 13  : •  10. 0> 
«tC13  ’  >  9.  Oi 

•ndi 

•ndi  <FILLARRAYS> 


WMUlUiRB 
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<*« 

<* 


<•  GETVIEW  off«r«  th*  user  tht  choic*  of  aight  difftrtnt  vitupolnt*  for 
<•  attaining  tha  maah  aurfaea. 

<• 


»*> 

a> 

a> 

a> 

*> 

»*> 


intagar )  i 


procadura  OETVIEWCvar  choosa 
bag  in 

HOME_N_CLEARi 

wrltaln( 'Plaasa  indlcata  gour  cholca  of  viawpoint  for  tha  utility  graph.  ')> 
lar  i  ta  In  <' 1 )  front  3>right  9)back  7)laft'>t 

writalnl '2)front-right  4)back-right  ^Iback-laft  B>front-laft  9)guit'>; 

wrlta(  'cholca:  ')t 
raadln(choo«a)> 
and I  <GETVIEU> 


<*♦**###*♦*♦*♦*♦♦#****#**♦***♦*♦** ***************«*aa*a***aa*****a***a*a***> 
<a  a> 

{•  ZAXSINIT  Inltlaliia*  valuaa  naadad  to  draw  tha  i  aii«  for  tha  math  •> 

<*  faca.  (for  graatar  datail<  «aa  a  DI-3000  Contouring  U«ar'*  Manual.  >  a> 
<*  *> 

<«#***•« »**«*aa**«**«aa*a-a*a******a***********aaa*«a*«aaa*a*«aaaa*a»«aa**aa> 

andpt>  tik  :  worldarray;  var  jtt  :  jatarrag; 
fkp  :  worldarray)* 


procadura  ZAXSINITlvar  bag* 
var  lab* 


bagCll 

m 

0. 

Oi 

Caiia  baginning} 

bagC23 

m 

0. 

Oi 

bagC33 

m 

0. 

Oi 

andptCl 3 

m 

0.  Oi 

<akls  anding} 

andptC23 

m 

0.  Oi 

andptC33 

m 

10.  Oi 

tikC13 

m 

0. 

9i 

<langth  and  diraction  of  tic  mark*} 

tikC23 

m 

0. 

Oi 

tikC33 

m 

0. 

Oi 

jsten 

m 

3) 

(justification  of  tic  marks  and  labals> 

jstC23 

m 

2) 

labC13 

m 

0. 

7i 

labC23 

m 

0. 

Oi 

labC33 

m 

0. 

Oi 

akpcn 

m 

20.  Oi 

<valua  to  skip  whan  adding  tic  marks  -  in> 

akpC23 

m 

20.  0> 

(this  casa*  nona.  > 

•kpC33 

m 

20.  Oi 

and)  <ZAXSINIT> 


<aa 

<a 


<a  YAXSINIT  parforma  tha  aaiaa  function  for  tha  g  ailt  at  ZAXSINIT  doai 


*a> 

a> 

a> 
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<*  for  th#  I  axis.  ♦> 

<*  *> 
<*•«***«««*«**•**••**••**«*•«**»«-»••«*«*»«•*•«**•••«•*•*••••*«•*•*****««•••> 
procsdura  YAXSINITCvar  b«g>  andpti  tik  :  uorldarray;  var  jst  :  jstarray. 

var  labt  bas>  pin.  skp  :  uorldarray;  nuinbar  :  integer); 

begin 

beg C 1 1  :  *  0.  0; 
begC2]  ; -  0.  0; 
begC33  ; -  0.  0; 
endptC 1 1  : « 
if  nufliber 
endptCZl 
else 

endp  tC2] 


0.  0; 

0  then 
;  -  10.  0 

:  *  S.  0; 


endptC3]  0.  0: 

tikCll 

■  0.  0; 

tikC21 

-  0.  0; 

tikC31 

-  -0.  3; 

jsten 

>  2; 

jstC23 

-  3; 

labCll 

-  0.  0; 

labC21 

■  0.  0; 

labC3] 

-  -0.  7; 

basCll 

■  1.0; 

basC23 

-  0.  0; 

basCSl 

-  0.  0; 

plnCn 

>  0.  0; 

plnC21 

■  1.0; 

plnC33 

-  0.  0; 

skpCn 

-  0.  Oi 

skpC23 

-  0.  0; 

skpC33 

-  0.  0; 

end;  <YAXSINIT> 


<♦  *> 

{•  XAXSINIT  performs  the  same  function  for  the  i  axis  as  ZAXSINIT  does  •> 
<*  for  the  X  axis.  *> 


59 


«ndi  <XA)(SIN1T> 


<*  *> 

PLOTCRAPH  draws  tht  3-D  mash  surface  based  on  the  user's  choice  of  •> 

<•  view.  It  also  draws  axes  for  the  mesh  surface.  •> 

<*  *> 

procedure  PLQTCRAPH( choice-  :  integer;  grid  ;  gtablei  nun  :  integer); 
var 

if  j  :  integer; 
g  :  gtable; 
begin 

for  i  ;  1  to  11  do 

for  j  : «  1  to  11  do 

gCi>  j]  gridCi<  jl  •  10;  iscales  utilitg> 

<froni  1  to  10> 

<for  greater  visibilitg> 


<sets  the  viewpoint  the  usi 
case  choice  of 

1  :  begin 

egeC  11  :  9.  0; 

egeC2]  ;  -  -20.  0; 
egeC3]  :  -  19.  0; 
xdelbasClI  :  1; 

idelbasC2I  : ■  O; 
xdelbasC3I  : >  0; 
tdelplnCll  : •  0; 
zdelplnC2]  ;  ■  O; 
xdelplnC3I  :  ■  1; 
end; 

2  :  begin 

egeClI  : -  30.  0; 
egeC2]  : -  -20.  0; 
egeC3]  :  -  19.  0; 
xdelbasCl 1  : ■  1; 
idelbasC2]  : >  1; 
idelbasC31  : •  0; 
idelplnCll  :  ••  O; 
idelp lnC2]  : ■  0; 
idelplnC31  : *  1; 
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•gtC13 
•g*C21 
•gaC3] 
idalbatC 1 3 
idalbasC23 
idalba.sC33 
zdalp InCl 3 
zdalp lnC23 
zdalp lnC33 
•  nd; 
bag  in 

agaC13  ;■ 
agaC23  :• 
agaC33 
Ida  IbaaC 1 3 
zdalbaaC23 
idalbaaC33 
zdalplnC13 
zdalp lnC23 
zdalplnC33 
and) 
bagin 

a«aCi3  :« 
agaC23 
agaC33  :■ 
zdalbasC13 
zdalbasC23 
zdalb«sC33 
zdalplnC13 
tdalplnC23 
zdalplnC33 
and) 
bagin 

agaC13 
agaC23  : 
agaC33 
zdalbasCi3 
zdalb«aC23 
zdalb«aC33 
zdalplnC13 
zdalp lnC23 
zdalp lnC33 
and) 
bagin 

agaC13 
avaC23 
agaC33  :  ■> 
idalbasC13 
zdalbaaC23 
zdalbaaC33 
zdalp InC 1 3 
zdalp lnC23 
zdalplnC33 
and) 
bag  in 

agaC 13  ; «  ' 
agaC23  : •  : 
agaC33  :> 
zdalba<C13 
idalbaaC23 


>  3.  0) 

-  30.  0) 

-  19.  0) 

13  :  -  -1) 


-20.  0) 
-20.  0) 
13.  0) 

:  -  1) 


«  30.  0) 

-  3.  0) 

-  19.  0) 
13  :>  0) 


30.  0) 
30.  0) 
13.  0) 

:  -  -1) 


-  -20.  0) 

-  9.  0) 

-  19.0) 
13  ;  -  0) 


-  -20.  0) 

-  30.  Oi 
■  19.  0) 

13  -1) 

23  :  -  -1) 


idolba«C3) 

;  -  Oi 

idolplnCl) 

:  -  0» 

idolp lnC2} 

:  -  Oi 

idalplnC3) 

.  -  li 

tndi 

•ndi  <ot  eas«> 

ENDGRAPHlCSi 
id  nui*  •  1  than 

dor  i  ' •  1  to  2  do 
•  yoCi]  ;• 

JBEOINi 
JDINIT(  Di 
JOEVONiDi 
JSSINIi 

JSSPRO(wldinin>  wldnai.  dyoi  at>< 

ZAXSINIT( xaisbog.  ia(*ond<  idoltik.  tlabj«t>  tdollab.  zikpval); 

VAXSINIT  ( t^aisbog.  ijaikond.  ydaltik.  ylabjkt.  ydollabi  ijdtlbas.  gdolpln 

yskpval,  num)i 

XAXSINIT( lai fbog .  ia««ond>  idoltik.  ilobjot.  tdollab.  tdolbao.  idolpln 

lokpval.  nu«)i 

JOPENi 

JSSAXS( taiobas.  laxoand.  1.0.  2.  idoltik.  03.  3.  ilabjtt. 

idollab.  zdolbat.  idolpln.  iikpvalli 
JSSAXS(ijaisbog.  gaioond.  3.0.  1.  gdoltik.  0.3.  0.  glabjtt. 

gdollabi  gdolbao.  gdolpln.  gokpvaDi 
JSSAXS( taitbog.  laioond.  3.0.  1.  idoltik.  0.3.  0.  ilabjbt. 

tdollab.  idolba*.  idolpln.  iskpval>< 

JCLOSEj 

id  num  ■  0  thon 

JSSHKg.  11.  11.  11.  0.0.  0.0.  0  0.  0  0.  -3.  1.0) 

olto 

JSSMKg.  ll.  4.  6.  0.0.  0.0.  0.0.  0  0.  -3.  l.0)J 

JQPENi 

JSIZEIO.  3.  0.  3)i 
id  num  «  0  thon 
caoo  choico  od 
1:  bogin 

JPLANEIO.  0.  1.0.  0.  3)j 

J3nQVE(2.  0.  0.0.  0.0); 

JHSTRO(Xftdoscr  attlocalo). 

J3nQVE(-1.0.  8.0.  0.0)1 
JHSTRO(r.ttdotcr  att2«calo)i 
ond) 

2:  bogin 

JPLANE(-1.0.  10.  0.  3)< 

J3dtOVE(2.  0.  0.0.  0.0) ( 

JHSTROiXotdoscr  attlocalo). 

JBASEIO.  0.  1.0.  0.0) < 

J3n0VE<0.  0.  2.0.  0.0)1 
JHSTRO(7.stdo«cr  att2«calo). 

JBASEd  0.  0.0.  0  0)> 
ondi 

3:  bogin 

JPLANE(-1.0.  0.0.  0.3)1 
JBASEIO.  0.  1.0.  0.0)1 

J3nOVE(9  0.  -1.0.  0.  0)i 
JHSTROOCf tdof cr  attlocalo>j 
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J3nOVE(0  0.  2.0.  0.0)1 
JHSTRG(%itd««cr  *tt2«cala)i 
JBASEd.O.  0.0,  0.  0)i 
tndi 

4:  bagin 

JPLANE<-1.  0,  -I  O;  0.  3)i 
JBASE(-1.0.  0.0.  0.  0>< 
J3nOVE<2.  0.  0.0.  0.  0>) 
JJUST(3,  Di 

JHSTRO(%«tda«cr  attlsc«l*)i 
JJUST ( 1 .  1 ) ; 

JBASE(0  0.  1.0.  0.  0>i 

j3navE(0  0.  2.0.  o.  0)i 

JHSTRO(%*td»«cr  «tt2scal«>i 
JBASE<  1  0.  0  0.  0  0)1 
•ndi 

3:  begin 

JPLANEIO.  0,  -1.0,  0.  3)i 
J3nOVE(2.  0,  0  0.  0.0)  t 

JBASE(-1  0.  0  0.  0.0)1 
JJUST<3.  l)i 

JHSTROOCstdescr  attl«c«le)i 
J JUST (1 .  1 ) > 

J3«QVE<3  0.  90.  0.0)1 
JHSTRGOCtt deter  att2«cale)> 
JBASEd.O.  0  0.  0.0)  i 
endi 

6:  begin 

JPLANEd  O.  -1.0,  0.  3)t 
JBASE<-1.0.  0  0.  0.0)1 
JJUSTO.  1); 

J3nOVE<2.  0.  0.0.  0.0)1 
JIHSTR0(X>tde«cr  attl«c«Ie)i 
JBASEIO  0.  -10.  0  0)< 
J3n0VE<0  0.  2.0.  0.0)1 
J)lSTR0<X«tde«cr  att2«cale)< 
JJUSTd,  1)1 
JBASEd.O.  0  0.  0  0)1 
endi 

7:  begin 

JPLANEC 1.  0.  0  0,  0  3)i 

JBASEIO  0.  -1.0.  0.0)1 

JJUST<3.  1)1 

J3riOVE<9.  0.  -3.0,  0.0)1 

JHSTRGlXetdeecr  attltcale)! 

J3n0VE(0.  0,  2.0,  0.0)1 

JHSTRGCXitdeecr  att2«cate)i 

J JUST  d ,  1)1 

JBASEd.  0,  0  0.  0  0)1 

endi 

8:  begin 

JPLANEd.  0,  10,  0.  3)1 

J3nOVE(2.  0,  0  0.  0.0)1 
Jt-(STR0(X«tde«cr  attl*cala)i 


I 


JBASE(0.  0.  -1.0.  0.0)! 

JJUSTO.  l)i 

J3n0VE(0.  0.  2.0.  0  0)i 

JHSTR0(%itd«scr  att2scal*>i 

JJUSTd,  l)i 

JBASEdO.  0  0.  0  0); 

and. 

•nd  <  caid  > 

alia 

caia  choica  od 
1:  bagin 

JPLANECO.  0.  1.0.  0.  S); 

JOnOVEd.O.  0.0.  0.0); 
JHSTRO(Xitdascr  attlscala); 
J3fiaVE<-0.  S.  4.0.  0.0); 
JHSTROOlitdaicr  att2icala); 
and; 

2:  bagin 

JPLANE(-1.  0.  1.0.  0.  5); 

JSnOVEdO.  0  0.  0.0); 
JHSTR0(y.itdaicr  attlscala); 
JBA$E(0.  0.  1.0.  0  0); 
J3nOVE(0.  0.  t  o.  0.0); 
JHSTROCXstdascr  a^t2scala); 
vlBASEd.O.  0  0.  0  0); 
and; 

3:  bagin 

JPUANEC-l.  0.  0.0.  0.  S); 
v/BASE<0.  0.  1.0.  0  0); 

J3M0VE(4.  3,  -0.  y.  0.0); 

Jt-ISTrO<Xstdascr  attlscala); 
J3ri0VE<0.  0.  1.0.  0.0); 

JHSTROCXstdascr  att2scala); 
JBASEdO.  0.0.  0.0); 
and ; 

4;  bagin 

JPLANE(-1  0.  -1.0.  0.  S); 
JBAS£<-1.0.  0.0.  0.0); 
JSnOVEdO.  0  0.  0.0)1 
JJUST  <3.  1 ) ; 

JHSTROCXstdascr  attlscala); 
JJUST  Cl,  1 ) ; 

JBASECO.  0.  10,  0  0); 

J3t1OVEC0  0,  1.0.  0  0); 

JHSTROCXstdascr  att2scata); 
JBASECl.O.  0  0.  0.0); 
and; 

9:  bagin 

JPLANECO.  0,  -10,  0  9); 
J3nOVEC1.0.  0  0.  0  0); 

JBASEC-1  0.  0  0.  0.  0); 

JJUST  C  3.  1); 

JHSTROCXstdascr  attlscala); 
JJUST  Cl,  1 ) ; 
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jaMOVEd.S.  4.3.  0.  0>) 
JHSTRO(Xstd«scr  attSscal*); 
JBASEd.O.  0.0.  0.  0>i 
•  nd. 

6:  begin 

JPLANEd  O.  -10.  0.  3)i 
JBASE(-1.0.  0.0.  0.  0>) 
JJUSTO.  l)i 
J3nOVEd.O.  0.0.  0.  0)i 
JHSTRO(Xstd*scr  jttiscale). 
JBASE(0.  0.  -1.0.  0.0)1 
J3n0VE(0.  0.  1.0.  0.0)1 
JHSTRClXstdescr  att2*cal«)i 
JJUSTd.  1)1 
JBASEd.O.  0.0.  0.0)1 
•ndi 

7;  begin 

JPLANEdO.  0.0.  0.3)1 
JBASE(0.  0.  -10.  0.0)1 
JJUST(3.  1)1 
J3MOVE<4.  3.  -13.  0.0)1 
JHSTRO('/.stdetcr  ettl«cale)i 
J3MavE<0.  0.  1.0.  0.0)1 
JHSTRO(’/.«tdescr  e«t2scele)i 
JJUSTd.  1)1 
JBASEd.O.  0.0.  0.0)1 
endi 

8:  begin 

JPLANEd.O.  1.0.  0.3)1 
J3MOVEd.O.  0.0.  0.0)1 
JHSTRO(X*tdescr  attlscale)i 
JBASEIO.  0.  -1.0.  0.0)1 
JJUST(3.  1)1 
JSMOVECO.  0.  1.0.  0.0)1 

JHSTRO(Xstde«cr  ett2*c«Ie)i 
J JUST  <1 .  1)1 

JBASEd.O.  0.0.  0.0)1 
endi 

endi  <  ce<e  > 


JCLOSEi 

end!  {PLOTCRAPH> 


♦  > 
*> 
*> 
*> 
*> 
*> 


<♦ 

<*  BOXPIC  !•  a  representation  of  the  different  vlewpointi  from  which  the 
<*  user  can  see  his  utilitg  function. 

<♦ 

procedure  BOXPICi 
var 

dummgehar  :  chan 
beg  in 
JOPENi 


f 
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JCOLOR  <  1  > .' 

JLW I DEC 32767 >i 

JLSTYLCO)! 

JSIZE(2.  0. 

2.  0); 

jnOVECSO  0. 

36. 

0) 

i 

JHSTRQCXttd 

•  SCT 

' 

UTILITY' ): 

JMOVE  ( 33.  0. 

33. 

0) 

i 

JDRAU(33.  0. 

38. 

0) 

i 

JLSTYL(3>i 

J0RAW(33.  0. 

18. 

0) 

i 

JDRAW(70  0. 

18 

0) 

i 

JM0VE(33.  0. 

18. 

0) 

$ 

JDRAWCSa.  0. 

26 

0) 

i 

JLSTYLCO); 

jMavec7o.  0. 

18. 

0) 

i 

JDRAUC80  0. 

18 

0) 

i 

JM0VECa2.  0. 

18. 

0) 

i 

JHSTRGCXstd 

•  SL  r 

• 

ttlftcalft)* 

jMOvEcsa.  0. 

26. 

0) 

J0RAUC64.  0. 

33. 

0) 

jnOVEC66.  0. 

33. 

0) 

JHSTRCCXstd 

•  scr 

a 

tt2«cal»>} 

JLUIDEC 16383): 

JCOLOR  C  6 ) : 

JLSTYLC3); 

JMOveCOO  0. 

10. 

0) 

i 

JDRAUC30.  0. 

30 

0) 

t 

JDRAUC43. 0. 

43. 

0) 

i 

JDRAWC73.  0. 

43. 

0) 

i 

JDRAUC60.  0. 

30. 

0) 

i 

JDRAU  C  60.  0. 

10. 

0) 

i 

JDRAUC73.  0. 

23. 

0) 

t 

JDRAWC4S  0. 

23 

0) 

i 

JDRAU C  30.  0. 

10. 

0) 

i 

JDRAU C  60.  0. 

10 

0) 

$ 

JM0VEC73.  0. 

23. 

0) 

i 

JDRAU  C  73.  0. 

43 

0) 

i 

JM0VEC43.  0. 

43. 

0) 

i 

JDRAU  C  43.  0. 

23. 

0) 

i 

jn0VEC30.  0. 

30. 

0) 

i 

JDRAU  C  60.  0. 

30. 

0) 

i 

JLSTYLCO); 

JM0VEC43. 0. 

30. 

0) 

i 

JSIZEC3.  0, 

3.  0) 

1 

JCOLORCS); 

JHSTROCXstd 

•  scr 

d 

1  '); 

JMQVEC60.  0. 

30 

0) 

; 

JHSTRCCXstd 

•  scr 

' 

2'); 

jnovEC6a.  0. 

38. 

0) 

; 

JHSTROCX«td 

•  scr 

3'  ); 

jriOVEC73  0. 

43. 

0) 

I 

JHSTROCXttd 

•  scr 

/ 

4'); 

Jt10VEC60  0. 

43 

0) 

i 

JHSTROCXstd 

•  scr 

S'); 

JM0VEC43  0, 

43 

0) 

; 

JHSTROCXstd 

•  scr 

6  '  ) ; 

jnQVEC38.  0. 

38 

0) 

i 

JHSTROCXstd 

•  scr 

7'  ); 

JM0VEC30.  0. 

30 

0) 

; 

JHSTROCXstd 

•  scr 

8'  ); 

JCLOSEi 

wr i tain ( 'Th i s  picture  raprasants  tha  viauipoints  from  uihich  you'li 
uritalni'can  look  at  your  utility  function.  ')> 
wri tain (' 1 ) front  3>right  S>back  7)laft'); 

wr i tain ( '2) fr ont-r ig h t  4)back-right  &>back-laft  8 > f r ont-1 af t ' > ; 
writaln('Hit  tha  S  Copy  kay  to  gat  a  hard  copy  of  the  picture.  '); 
writai'Hit  any  kay  followed  by  return  to  continue: 
read  In ( dummy char ) > 
andi  <BOXPtC> 


<«•««**••«•#•**•##•••*#***#*•«*••••#»«*«•«•«•*•*•«•«•**«##•**«####»••««*»#*> 
<*  a> 

<*  FILL6RID  fills  an  array  with  appropriate  utility  values  based  on  tha  *> 
<*  given  attribute  values  (y  and  z).  *> 

<*  *> 


<••••••••#***«•*••#•**«*»*•»«»*«•*««•#*««*«««««««*«*»«»•«•*«•««*•#•««»««#*»> 

procedure  FILLCRIDivar  grid  :  gtablei  ky>  kz>  kyz.  ycon>  zcon.  zb>  yb>  zc. 

yc  :  real); 


var 


y<  z>  valyi  valz  :  integer; 


beg  in 
for 


y  ;  •  0  to  10  do 
for  z  :  «  0  to  10  do 
begin 

valy  :  <  ROUND <(  y/y  con  >  minimuml); 
valz  :•  R0UND<  <  2/zeon  )  minimum2>; 


gridCy  *1.  z  +  13  :■  ky  *  UTILITYI va 1 y .  yb. 

yc. 

ycorif 

minimuml ) 

♦  kz  *  UTILITYfval I.  zb. 

zc. 

icon* 

imum2« 

minimum2) 

+  kyz  *  UTILITY (valy.  yb. 

yc. 

gcoHi 

ma  X imuml 

minimuml ) 

•  UTILITY! va 1 z .  zb.  ic>  icon.  maiimum2.  minimum2> 


if  gridCy  ♦  1.  i  1  j  >  1.0  then  <*  this  check  clips  utility  *> 

gridCy  1 .  i  ♦  1 3  :  1 .  0  <*  values  between  0  and  ’  *> 

else 

if  gridCy  1 .  z  1 3  <  0.  0  then 

gridCy  ♦  l.z  ♦  13  0.0; 


end; 

end:  CFILLCRIO} 


<* 

<•  nUTORADO  is  used  to  gather  additional  data  for  developing  the  utility 
(•  curve  with  UTIL  once  it's  been  determined  that  mutual  utility  indapen- 
<«  dance  or  additive  independence  holds. 

<e 

procedure  MUTORADDCmoda  :  char;  tab  :  tarray;  var  by.  cy.  cz.  bz.  cony, 
conz  :  real); 


*> 
*> 
*> 
♦  > 
*> 
*> 
*> 


var 


continue  :  boolean; 
dummychar  char; 


yraid-  tmid> 

ijmstt,  zmjtt,  cfflyt.  c/nit  :  rxl; 

1.  j<  cmi^.  cmii  pick. 

ijflagi  ifldg.  Ig.  li.  gnun  :  integer; 
finail.  iminl.  iniin2.  iniai2  ;  parragi 
grid  tab  It  g  tab  1 ti 
kl.  k2.  k3  rtal, 
beg  in 

HOnE_N_CUE:ARi 
for  i  :  “  1  to  15  do 
uir  1  tt  Ini 

wr 1  tain (  'St nc t  gour  rttpontts  indicate  that  the'); 
if  mode  •  'm'  then 

uir  i  t  e  In  < 'a  ttr  ibu  t  es  are  mutuallg  utilitg  independent.  ') 

else 

wr 1 te 1 n ( 'attr 1 bu t es  are  additive  independent.  '); 

uir i te In <  ' gour  utilitg  function  can  easilg  be  developed  bg  assessing'), 
wr 1 te In (  ' the  marginal  utilitg  curve  for  each  attribute.  To  do  this.  ') 
uir i te 1 n (  ' gou  will  be  shown  additional  lotteries  for  which  gou  must'); 
wr i te In (' enter  gour  certaintg  equivalents.  ')i 
for  1  :•  1  to  5  do 
wr i te In; 

writai'Hit  ang  keg  followed  bg  return  to  continue:  ')> 
read  In ( dumngchar ) ; 

Horie_N_CLeARi 

JOPEN; 

CONVERT  ( na  I  irnuinl .  small); 

CONVERT  (ma  I  imum2.  smas2')i 
CONVERTiminimuml,  sminl); 

C0NVERT<minimum2.  smin2); 

SETUP; 

PUT1VAL<67. 0.  45  0.  small,  sminl); 

Jf10VE<5.  0.  30.0); 

JSIZE<4.  0.  4  0); 

JHSTRCC/.stdescr  '(  ?  )'); 

USIZE(2.  0.  2.  0)1 
JCLOSE; 

wr i te ( 'P 1  ease  enter  gour  certaintg  equivalent  for  the  '); 

read  In ( cmg ) ; 

HOME_N_CL£AR; 

JFRAflE; 

JOPEN; 

SETUP; 

PUT1VAL<67. 0.  45  0.  smai2.  smin2); 

JMOVECS.  0.  30.0); 

USIZE(4.  0.  4.  0)1 
JHSTRe(7.stdescr  '<  ?  )'); 

JSIZE(2.  0.  2.0); 

JCLOSE; 

wr i te < 'Please  enter  gour  certaintg  equivalent  for  the  '); 

read  In ( cm2 ) ; 

JFRAME; 

cong  10.  0/ (max imuml  -  mintmuml); 
coni  10.  0/ <ma I imum2  -  minlmum2)i 
gmait  :»  (maiimuml  -  minimuml)  •  cong; 
imait  : "  (maiimum2  -  mlnimum2)  *  coni; 
cmgt  :»  (cmg  -  minimumL)  *  cong; 
emit  :•  (cmi  -  minimum2)  *  com; 
gmid  :•  (maiimuml  -  minimuml)/2; 
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*WW 


<inaximum2  -  ininimuin2>/2i 
li 


zinid  :»  <inazimum2 
y f  lag  ;  >  li 
zflag  ;•  li 
if  cmg  <  ymid  then 
y  f  lag  :  «  -1; 
if  cini  <  zmid  then 
zflag  ; ■  -li 
if  yflag  >  O  then 


UTIL(yma>t. 

cmyt. 

bui 

cy. 

1) 

•  lit 

UTIL(ymazt.  cmyt. 
if  zflag  >  0  then 

cy* 

-l)i 

UTIL! zmazt. 

cmz  t. 

b  z  j 

C  Zf 

i  > 

tls« 

UTIL! zmazt. 

cmz  t. 

bZf 

CZf 

-1  )i 

SCALE(inode>  (nazimumt.  minimurnl.  maziinum2f  rniniinum2.  attributal.  attribute2f 
kli  k2/  k3.  cony.  conz<  bz>  by>  tc,  yc)i 

FILLGR IO( grid  tab  1 e.  kl.  k2.  k3.  cony>  conz>  bz>  by>  zc>  yc)i 

gnuni  :  »  Oi 


cant inue  :  truei 

FlLLARRAYSi 

HOME_N  CLEAR  i 

BOXPIcr 

HQME_N_CLEARl 

JFRAMEi 

while  continue  do 
begin 

GETVIEW(pick)i 
if  pick  O  9  then 
begin 

PLOTGRAPHCp ic k>  gridtable>  gnum)i 
HOME_N_CLEARi 

end 

else 

continue  : =  fa  1  set 

endi 

endi  <nUTORAOD> 


<****#*****e****e***************************************HH»***«*************> 
{*  *> 

<*  ONEWAY  fills  the  mesh  surface  array  grid  in  the  case  where  the  attri-  ♦> 
<•  butes  are  utility  independent  in  one  direction  only. 

<•  e> 


procedure  ONEWAYCb.l,  b_2 
var  grid 

var 

y/  z  integer! 
valy.  valz  :  integer! 
beg  in 

for  y  : «  0  to  10  do 


)_3.  c_l. 
gtablei 


c_2,  c_3, 
direction 


:on_l.  con_ 
char )  i 


for  y  :  «  0  to  10  do 
begin 

valy  :«  ROUND< < y /c on_2 )  +  minimurnl >i 
for  z  :  a  0  to  10  do 
beg  in 

valz  :«  ROUND <( z/con_l  )  +  minimum2)i 
if  direction  «  'z'  then 

grldCy  +1,  z  ♦  13  UTILITY! valy. 


con_2.  mazimuml. 
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fflinimuml)  *  (1  -  UTILITY(vaIz.  b_l.  c_l, 
con_l,  inaxiinum2>  miniinuinZ)  >  UTILITY( valy> 
b_3>  c_3<  con_2.  max imuinl /  minimuml)  • 
UTILJTY(val i,  b_l,  C_l.  con_l,  maximum2< 
minimum2> 


al  sa 

gr id  Cy 


1,  1  +  13 


UTlLlTY(val  I.  b_l.  c_l.  con_li  maximum2i 
minimum2)  ♦  (1  -  UTILITYCvaly,  b_2-  c_2. 

con_2>  maximumlf  minimuml))  UTILITY  ( val  z  < 
b_3>  c_3>  con_l<  maximum2>  minimum2)  • 
UTILITY( val g»  b_2/  c_2/  con_2/  maximumi, 
minimuml >i 


and: 

and: 

and:  {□NEUAY> 


<*  UTINOlUAY  guidaa  tha  p.'ocass  for  drawing  tha  math  surfaca  whan  only  •} 
<*  ona  of  tha  attributas  is  utility  indapandant  of  tha  othar. 

<*  a> 

<*****♦•****♦********♦********♦***♦**************♦****♦*******•*********♦**♦*> 

proeadura  UTIN01UAY( d ir  :  char): 
var 

continua  :  boolean: 

imaxl<  «max2i  sminl.  smin2  :  parray: 
dummychar  :  char: 


ymid<  zmid> 

bl.  b2.  b3.  cl.  c2.  c3. 

coni.  con2. 
emit.  cm2t.  cm3t. 
maxlt.  max2t.  max3t  : 
pick. 

11.  12.  13. 

cml.  cm2,  cm3, 
flagl.  flag2.  flag3  : 
gridtable  :  gtabla: 
dumscala_A.  dumscalo_B 


integer: 


attribute: 


a  1 1 1  sea  1  ai 
at  t2scal a: 


begin 

if  dir  ■  'y  '  than 
bag  in 

dumscale_A  attlscalai 
dufflscala_B  :•  att2scala: 

and 

else 

bag  in 

dumscala_A  :  <•  att2scala: 
dumscala_B  attlscala: 

and: 

HOME_N_CLEAR; 
for  i  : *  1  to  13  do 
writaln: 

writaln( 'Since  your  responses  indicate  that  '.  dumscala_A.  '  are  '): 
writaln( 'utility  independent  of  '.  dumscal a_B.  ' .  ' ) : 

wr i tain ( 'your  utility  function  can  easily  be  assessed  by  developing'): 
wr i te In (' three  marginal  utility  curves  for  the  attributes.  To  do  this. 


att2scals: 
att 1  scale: 


IS 
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writ«ln( 'you  mill  bo  •houn  additional  lottoria*  for  which  you  must'). 
writaln( 'antar  your  cartainty  ayuivalants.  ')■ 
for  i  : »  1  to  3  do 
wr italni 

writo('Hit  any  kay  followad  by  raturn  to  continua:  '); 

r aad In  <  dummy char ) i 

HOME_N_CLEAR; 

JOPENi 

CONVERT < ma ( i mum 1 .  small )i 
CONVERT ( mAi imumSi  smas2)i 
CONVERT(miniffluml>  sfflinl)< 

CONVERT < min imum2.  smin2); 

SETUP: 

PUTVAL(67.  0.  43.0.  sminl.  sma«2): 

PUTVAL(3.  0.  30.0.  sminl,  '  ?  '): 

PUTVAL<67.  0,  15.0,  sminl,  smin2): 

JCLOSE: 

writaln('In  tarms  of  tha  ( ', attlscala.  '.  '. att2scala.  ')  outcome. 

wr i ta ( 'p lease  enter  your  value  for  the  '): 

if  dir  ■  'z'  than 
read  In  <  cml ) 
else 

raadln<cm2>: 

H0ME_N  CLEAR) 

JFRAKE) 


UOPEN: 

SETUP: 

PUTVAL<67.  0,  45.0,  smaxl.  smin2): 

PUTVAL(5.  0,  30.0.  '  ?  '.  smin2): 

PUTVAL(67. 0.  15.  0.  sminl.  smin2): 

JCLOSE: 

writalnC'In  tarms  of  tha  ('.attlscala.'.  '.  att2scale,  ' ) 
wr i te < 'p 1  ease  enter  your  value  for  the  '): 

if  dir  ■  ' z  '  than 
read  In ( cm2) 

else 

raadln(cral ): 

HOME_N_CLEAR: 

JFRAME) 


JOPEN) 

SETUP: 

if  dir  ■  'r'  than 
begin 

PUTVAL(67.  0,  43.0,  srnazl.  smax2): 

PUTVAL(3.  0,  30.0,  '  7  ',  smax2)) 

PUTVAL(67.  0.  13.0.  sminl,  smax2): 

and 

else 

begin 

PUTVAL(67.  0.  43.0,  small,  sma<2): 

PUTVAL(3.  0,  30.0,  small,  '  7  '): 

PUTVAL(67. 0.  13.0,  small,  smin2): 

and: 

JCLOSE: 

writeln('In  tarms  of  tha  <', attlscala,  ',  ',att2scala,  ') 
wrlta( 'please  antar  your  value  for  tha  "7":  '): 

raadlnCcfflO): 


outcome,  ' ) : 


outcome,  ' ) : 


HOME_N_CLEARi 

JFRAMEi 


coni  :»  10.  0/ (nai  inuinS  -  iiilniffluin2>i 
con2  10.  0/ (mai  imuml  -  niniinuffll): 

in«ilt  :•  (m«>iinuni2  -  AiiniAiuffl2)  •  conli 
inax2t  :•  (maiimuinl  -  ninimuml)  •  con2> 


if  dir  ■ 
bog  in 

maiSt 

emit 

cm2t 

cffl3t 

tnd 
•  Iso 

bog  in 
mo  i3t 
emit 
cm2t 
cm3t 
•ndi 


'I'  thon 

(moximuml  -  minimuml)  •  con2i 
•  (cml  -  minimum2)  •  coni; 

«  (cm2  -  minimuml)  •  con2; 

«  <cm3  -  minimuml)  •  con2; 


:•  (maiimum2  -  minimum2)  •  coni; 

•  (cml  -  minimuml)  •  con2; 

•  (cm2  -  minimum2)  •  coni; 

«  (em3  -  minimum2)  •  coni; 


gmid  (moiimuml  -  minimuml)/2> 

tmid  (m«<imuffl2  -  minimuffl2)/2; 

flogl  :>  1; 
flog2  1; 

#lag3  :  «  1; 

if  cml  <  zmid  thon 
f lagl  : -  -1; 
if  cm2  <  gmid  thon 
f lag2  ; -  -1; 
if  cm3  <  gmid  thon 
f lag3  ; -  -1; 

if  flagl  >  0  thon 


UTIL(mazlt>  emit. 

bl. 

cl. 

1) 

•  Iso 

UTIL(maxlt>  emit. 

bl. 

cl. 

-1 ); 

if  flag2  >  0  thon 
UTIL(mai2t,  cm2t. 

b2. 

c2. 

1 ) 

•  Iso 

UTIL(max2t,  cm2t, 

b2; 

c2. 

-1); 

if  flag3  >  0  thon 
UTIL(mai3t,  cm3t. 

b3'. 

c3. 

1 ) 

tls« 

UTIL(ma(3t.  cm3t> 

c3. 

-1 ); 

0NEMAY(bl.  b2.  b3.  cl,  c2,  c3,  coni.  con2. 

FILLARRAYSi 

HOME_N_CLEAR; 

boxpTc) 

HOME  N  CLEAR; 
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JFRAMEi 

cortinu*  : »  tru*i 
whili  continu*  do 
btg  in 

OETVIEU(pick)i 
if  pick  O  9  than 
bag  in 

PLaTGRAPH(piek.  gridtabla.  0); 
HOME _N_CLEARi 

and 

alsa 

continua  : >  falaai 

andi 

andi  <UTIN01MAY> 


<***a***aa***a**a**aa********a*******aa**a***a*a***a*aaaa***'**a*a-a*aaa***a*> 

•ta  *> 

<•  BOTHDEP  guidaa  tha  procast  for  drawing  tha  math  turfact  uihan  naithar  •> 

<•  attributa  in  utilltg  indapandant  of  tha  othar.  a> 

<*  a> 

<aaaa«aaaaaaaa«a***a*aaaaa**a*a««aa*a»a«««««aaa«***aa*a«a«aaaaa«a«*aa*a«aaa> 
procadura  BOTHDEPivar  option  :  intagar)) 
var 

i  :  intagari 
bag  in 

HOME_N_CLEARi 
for  i  :  1  to  9  do 

wr italni 

writalni 'Stnca  gour  ratpontat  indicata  that  tha  attributat  ara  not  at  all'>j 
wr i ta In < 'ut i  1 i tg  indapandant>  thara  ara  thraa  pottibla  approachat  to  '>i 
wr i tain ( 'attatt ing  utilitg  valuat  for  tha  attributat.  Tha  first  approach')! 
wr i ta In ( 'r aquir as  gou  to  rarun  tha  utilitg  program  using  transf ormad  ' ) i 
wr i tain < 'a ttr ibutas  which  mag  axhibit  utilitg  indapandanca.  Tha  tacond'). 
wr  i  ta In < 'approach  raquirat  dacomposing  tha  attributa  rangas  and')! 
writalni 'than  astassing  tha  utilitg  function  ovar  thasa  dacomposad  ' ) > 
wr i tain ( 'rangas.  which  mag  ba  utilitg  indapandant.  Furthar  guidanca  on')i 
wr i ta In (  ' th is  option  is  providad  whan  gou  choosa  it.  Finallg.  tha  ')> 
wr  italni 'last  approach  raquiras  gou  to  indicata  gour  utilitias  diractlg  ')> 
writalni'for  diffarant  combinations  of  attributas.  Sinca  this  is  tha  '); 
writalni 'most  difficult  option  to  parform.  it  is  racommandad  gou  trg  ')• 
writalni 'ona  of  tha  othar  two  if  possibla.  ')i 
for  1  : •  1  to  9  do 
writalni 

wr i tain ( 'Plaasa  Indicata  which  option  gou  want.  ')i 
writalni '1)  Usa  transformad  attributas.  ')• 
writalni '2)  Dacomposa  tha  attributa  rangas.  ')• 
writalni '3)  Diract  assassmant.  ')> 
wr i ta i  'Choica:  ' ) i 
raad In i op 1 1  on ) I 
H0ME_N  CLEARi 
and!  <B0THDEP> 


<aa##a*a*a*a*a**aa***a*a*a*a**a****a*a**a*****a******aaa*a*a-*a***aa**aa*aaa> 
<*  a> 

<a  WRITEVALUES  finds  tha  corract  valuas  and  prints  tham  in  tha  appropri-  •> 
i*  ata  position  for  tha  9  lottarlas  shown  to  tha  dacision  makar  in  DRAM-  a> 


ft's' 
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{*  CHECK. 

{♦ 

<****************************-************************* *•*♦**♦** 
procadurt  URITEVALUES( c  :  chan  x<  y  :  real;  po<>  ana>  max.  min 

parray  )< 

var 

vail.  val2  :  parragi 
begin 

if  c  ■  'y'  than 
bag  in 

vail  : ■  max. 
val2  : ~  pos. 

and 

alsa 

bag  in 

vail  : >  post 
val2  : »  maxi 
and; 

PUTVALCx,  y.  vail.  val2); 

if  e  “  'y '  than 
begin 

vail  : ■  an*; 
val2  ■.’*  po«; 

and 

alsa 

begin 

vail  : m  pos; 
val2  : >  ans; 
end; 

PUTVALCx  -7,0.  y  -  10.0.  vail.  val2>; 

if  c  =  'y  '  than 
bag  in 

vail  : •  min; 
va 12  : •  pos; 

and 

alsa 

begin 

vail  : •  pos; 
va  12  ;  min; 
and; 

PUTVALCx.  y  -  20.0.  vail.  val2); 
and;  {WRITEVALUES> 


a> 

*> 

*> 


{*  *> 

<•  DRAMCHECK  shous  the  decision  maker  his  previous  ansuiars  for  c.  a.  's  to  *> 
C*  help  remedy  possible  inconsistencies.  •> 

<*  *> 

procedure  DRAUCHECKCch  :  chan  table  :  tarray); 
var 


i.  vail.  val2.  val3.  val4. 
val3.  posl.  pa*2.  pos3>  po*4. 


s9i  anti  poti  mail  nin  :  Intagari 
g  :  raali 

iti  tanti  tmaii  tmin  :  parragi 

eh  "  'g  '  than 
in 

vail  tab laC 1 1 . anti 
potl  tablaCll. poti 
val2  tab laC21 . anti 
pot2  tablaC21.  poti 
val3  tab laC4]. anti 
pot3  :•  tab laC4] . poti 
val4  tab laC7]. anti 
pot4  tab laC71. poti 
valS  : »  tab laC9]. anti 
potS  tablaC9].  poti 
fliai  tab  laC31.  poti 
min  :•  tab laCSl. poti 

iiirita('<'ivall:4i'i  '.potl:4.  '>'•£0.  5('.mai:4,  'ipotl:4i 

uritalni'O.  3<'ifflin:4.  '•  '.poti:  4#  ')3'>i 

uritalni 

(iirita<  '  <  val2:  4.  pot2:  4.  ' )  -  CO.  9(  ' .  ma i :  4.  ' .  pot2:  4, 

uiritalni'O.  9<'.min:4.  pot2:  4.  ' )  3  '  )i 

uritalni 

urita<'('ival3:4.  '.pot3.4.  ')  ^  C0  9<'.fflai  4.  '.pot3;4. 

uritalni  '0.  9<  min:  4,  pot3:  4,  ' )  3  ' 

uritalni 

ur  i  ta<  '  <  val4:  4.  po t4:  4.  '  >  ^  CO  9 (  ' .  ma  i ;  4,  ' .  ' .  pot4:  4> 

uritalni  '0.  9<  min:  4.  pot4  4.  '  3  '  n 

uritalni 

uritai'i'.val9:4i'.  '.pot9:4.  ')‘*t0  9i'.mai:4.  '.pot9:4. 

uritalni'O.  9<'.min:4.  '.pot9:4.  '>3'>i 

uri talni 


lin 

vail  :>  tab laC33.  anti 
poti  :>  tab  laC33.  poti 
val2  tab  1  aC 93. anti 

pot2  tablaC93. poti 

val3  :•  tab loC63. anti 

pot3  tablaC63. poti 

val4  :»  tab laC83. anti 

pot4  tablaC83.  poti 

val9  tab laC 103. anti 

pot9  :•  tablaC103. poti 

mai  :■  tab laC73. poti 
min  tablaC  1  3.  poti 

uritai  '  t  poti :  4.  val  1 :  4,  ' )  '•  CO.  9(  p ot  1  4.  ' ,  max  4, 

uritalni'O.  9<'.potl:4.  '.min:  4.  ')3')i 

uritalni 

uritai'{'.pot2:4.  '.  '>val2:4.  '>'’£0.  9(’>pot2:4.  '.  '.max:4. 

uritalni'O.  9i'.pot2:4.  '.  '.min:4.  ')3')i 

ur i ta Ini 

uritai 'i '.  pot3:  4,  '.  ' .  val3:  4.  '  )  '•  £0.  9(  ' .  p  ot3:  4,  ' .  '.max:4. 

uritalni'O.  9{'.pot3:4.  '.  '.mln:4.  '>3')i 

ur  i  ta  Ini 

urita('{'.pot4:4.  '.  '.val4:4.  ')''£0.9<'.pot4:4.  '.  '.max:4. 

uritalni  '0.  9i  '.  pot4:  4.  '.  '.min:  4.  ')3')i 


uir  itvlni 

uirit*<  '  ( po*S;  4.  '.valS;4,  ')  ^  tO.  5  ( '.  po*5:  4,  ' , 

writ«ln(  '0.  3(  pos9:  4.  '.min;  4.  '>3  '  >i 
uir  it«lni 


ii:  4,  '  ) 


«ndi  <DRAUCHECK> 


<******************************-*****************************************«**> 
<*  *> 
<*  EXPLAIN  xplains  how  to  docompos*  a  usar's  ranges  to  tha  propartias  of  »> 
<*  utility  indepandenca  nay  ba  usad.  It  alto  offart  tha  utar  a  chanca  to  a> 
{a  review  hit  previous  antwart  to  lotteries.  a> 


procedure  EXPLAINivar  continue  ;  boolean); 
var 

i  :  integer; 
c  :  integer; 
dunnychar  ;  char; 
begin 

for  i  ; ■  1  to  S  do 
wr i teln; 

writeln< '  Deconpoting  the  attribute  ranges  should  be  done  if  ther 
writeln('is  indication  of  utility  independence  over  a  subset  of  the 
writelni 'This  is  indicated  by  having  a  constant  certainty  equivalan 
writelnC'an  attribute  even  when  the  other  attribute ''s  value  varies 
writelni 'exanplei  if  your  certainty  equivalent  for  attribute  one  (r 
writeln< 'frooii  say.  0  to  100)  is  always  constant  (say.  60)  over  a  s 
wr i te In (  '  ( say .  lass  than  390)  of  attribute  two  (ranging  frooi.  say. 
wr i te In ( '400) .  then  a  good  place  to  subset  the  range  would  bo  from 
writaln(  '390  and  390  to  400.  This  way.  over  the  200  to  390  range. 
writaln( 'utility  independence  properties  will  hold.  '); 
wr iteln; 

writaln( 'Mould  you  like  to  see  your  original  answers  again?  '); 

writaln(  '1 >  yes  ' ); 

writaln( '2)  no'); 

write(  'Choice:  ' >; 

road ln( c  ) ; 

if  c  >  1  then 

begin 

HOI1E_N_CLEAR; 

writaln( 'These  are  the  choices  made  for  '. attributel ); 
writaln('by  varying  '. attr ibute2. '  in  terms  of  the'); 
writaln(  '  ( '. attlscale.  '.  '. att2scala.  ' >  outcome:  '); 

wr iteln; 

DRAMCHECK( 'y '.  lottablo); 

Mrite('Hlt  any  key  followed  by  return  to  continue:  '); 
read  In (dummy char ); 

HOME_N_CLEAR; 

wr i tain ( 'Those  are  the  choices  made  *or  '. attr i b ute2) ; 
writeln('by  varying  '.attributel.  '  in  terms  of  the'); 
writeln( '('. attlscale.  '.  '. att2scale.  ' )  outcome:  '); 

wr iteln; 

DRAMCHECK( 'z '.  lottable); 

Write('Hit  any  key  followed  by  return  to  continue:  '); 
read  In ( dummy  char  ) ; 


o'); 

range, 
t  for  ' 
For 

ang ing  ‘ 
ubranga 
200  to' 
200  to' 
some  ' ) ; 
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HOME_N_CLEARi 

•ndi 

writaln; 

writalni 

writ*ln( 'Pitas*  indicat*  uhich  optration  you  uant  to  ptrform.  '); 
writ*ln('l)  Raturn  to  options  mtnu.  ')< 

urit*ln<'2>  Ptrforni  th*  analysis  ov*r  a  subset  of  ranges.  ')> 
urit*< 'Choice:  '  )> 
read  In ( i  )  ■ 
if  i  »  1  then 

continue  falsa 
else 

continue  : •  truei 
end;  <EXPLAIN> 


<**•*••«••*«  •«««*«***«*'»**«*«***««'ii-»*«*«*«*«***«««««****«-»**«««***e*«***e*e> 
<*  *> 

<*  ORAWSCALE  drams  the  scale  for  th*  user  to  look  at  while  assigning  uti-  •> 
<*  lity  values  to  th*  outcomes.  •> 

<*  *> 

procedure  DRAWSCALEi 
var 

i  :  integer) 
a>  I)  y  .'  real) 
c  :  Chari 


begin 

jn0VE<10. 0.  20.  0)i 
JDRAW(90.  0.  20.  0)i 
JMOVEdO.  0.  29.  0)i 
JHSTRCC/.std*scr  '0')i 
JI1QVE(48.  0.  29.  0)i 
JHSTRe(y.*td*scr  '0.  9')i 
JKOVE(89.  0.  29.  0>i 
JHSTRC(y.*td**cr  '1.0'); 

I  :  -  10.  Oi 
y  :  ■  23.  0; 
repeat 

jnOVE it.  y ) i 
JDRAWC  I,  y  -  6.  0)i 
I  :  ■  I  +  8.  Oi 
unt  i  1  I  “  98.  0) 
end;  {DRAWSCALE> 


<•*•*«••«**•*«•**•••**•****«*•••*•*•*•*••••«•••***««*•*«•****«»*•*•**«•*«••> 
<*  *> 

{•  PRESENT  presents  a  user  with  36  different  outcomes  to  assign  utility  •> 
<*  values  to. 

<*  *> 

<*•••<■  •*«««•*•***********»**••*•«*••••*•«**«**•«***•****•*•«••*•*•*«*«••***> 

procedure  PRESENTi 
var 

gnum>  pick# 

i)  I)  y>  (st*p>  ystap  :  integeri 
ivalueS)  yvalues  :  arrayCO. .91  of  integeri 


utility  :  gtab  !•> 
continu*  :  boolcani 

bag  in 

istap  :•  TRUNC  (  (nia I  iniuml  -  tnininuffll ) /S> ; 

ystap  TRUNC  (( nia  i  iniumS  -  fliinxmumS) /3 ) ; 

ivaluasCOl  miniinuinli 

yvaluasCOl  :  =■  niiniinuin2; ' 

ivaluacC 11  : •  Oi 

yvaluasC 11  : >  0; 

for  i  : *  1  to  S  do 

bag  in 

ivaluasCil  :  •  xvaluasCi  -  1 1  istap; 
yvaluasCil  yvaluaiCi  —  1 1  r  ystapi 
and; 

INITCRAPHICSi 
JROPENdli 
JCOLOR ( 4 ) ; 

JPONTOli 
JStZEtS.  0.  3.  0)i 
JMOVEOO.  0,  35  0)i 
DRAMSCAUEi 
JRCLOS< I )i 
HQME_N_CLEAR; 
for  i  : «  1  to  5  do 
ur italnj 

writaln( 'Batad  on  tha  seala  balow<  plaaaa  antar  tha  numbar  you  faal') 
wr i tain ( ' ind icatas  tha  worth  of  tha  following  outcoma*.  Tha  numbar  ') 
writaln( 'antarad  may  ba.  real  or  integer  between  and  including  0  '); 
writalnC 'through  1.  0.  '); 
for  1  :■  1  to  3  do 
wr  italni 

for  y  0  to  3  do 
beg  in 

writaln('('.attributal.  '.attributes.  ')')i 

for  I  :>  0  to  3  do 

begin 

writa<'('>ivaluasCxl.  '.  '.yvaluesCyl.  ')  ')> 

read  in  ( uti  1  ity  C  I  1.  y  +  ll>i  <save  for  me»h  surface! 
and; 

HOME_N_CLEAR; 

end; 

ENDORAPHICS; 
gnum  : •  1 ; 
continue  : "  true; 
for  i  : «  1  to  3  do 
begin 

wldminC i 1  : •  0. 0; 
wl dmai C i 1  : >  5.  0; 
atCil  :  -  3.  3; 
and ; 

atC31  :  -  3,  0; 
wldmaiC31  : -  10  0; 

INITCRAPHICS; 

HOME_N_CLEAR; 

BOXPIC; 

HOt1E_N_CLEAR; 

JFRAME; 

while  continue  do 
begin 


GETVIEU(pick)i 
i#  pick  O  9  th«n 
begin 

PLOTORAPH( p ic k<  utilitg-  gnum)/ 
HOME_N_CLEARi 

•  nd 

el«* 

continue  : ■  feleei 

end  • 

•ndi  <PRESENT> 


<**************************************************************************> 
<*  *> 

<•  OIRECTASSESS  introduce*  the  direct  assessment  procedure.  *> 

<*  *> 

<»«*e*«*e*«*eee«******e**«**»«*«**«*«****»e«*«*«»**«**«*»*««^«*****««*««***> 


procedure  D1RECTASSESS> 
ver 

i  ;  integer! 
dummgehar  :  cheri 
begin 

HaME_N_CLEAR) 
for  i  : »  1  to  9  do 
uiri  teln; 

writeln<'  This  procedure  it  difficult  to  perform  because  it  is  t*-')i 

wr i te In (  ' d i ous>  and  gou  mutt  have  a  good  feel  for  gour  preferences.  You')i 
uir  i  teln< 'uti  1 1  be  asked  to  assign  a  number  from  0  to  1.  0  to  a  varietg  of'); 
writ*ln< 'outcomes.  Please  think  carefullg  about  gour  choices.  ')■ 
for  i  1  to  9  do 
uir  iteln; 

writei'Hit  ang  keg  followed  bg  return  to  continue:  '); 
r ead . o  <  dummgc  har  ) ; 

PRESENT; 

end;  <OINECTASSESS> 


<*  *> 

<•  TREND  is  used  to  uncover  inconsistencies  in  a  decision  maker's  re-  •> 
(*  tpontet.  Possible  inconsistencies  are  perceived  to  eiist  when  all  re-  •> 
<•  tpontes  are  close  toi  but  not  the  same  as>  each  other  •> 
<*  *> 


f((/iction  TRENDiv.  w.  >•  g>  z  :  i  nteger  > :  b  oo  1  ean; 
const 

point9  •  O.  09; 

var 

total,  avg.  fiveper  :  integer; 
begin 

TREND  true; 

total  :»v+wr  I  ♦g*  I, 

avg  :>  ROUND( to ta 1 /9 ) ; 


fivtpar  :•  ROUND<<avg  •  points) >i 

if  ((ABS(v  -  avg )  <  fivapar)  and  (ABS(u  -  avg )  <  fivapar)  and 
(ABS(x  -  avg)  <  fivapar)  and  (ABS<g  -  avg)  <  fivapar)  and 
(ABS(i  -  avg)  <  fivapar))  than 
TREND  falsai 
andi  {TREND> 


<a***aa***a*a************a***a*****aa*aa*a*a****a**********-a*a***a*a******a> 
<a  a> 

<*  CQNSISCHECK  raconfirnis  a  dacision  makar'i  c.a.  '%  if  incontistanc ias  •> 
<•  ara  indicatad.  Tha  dacision  makar  mag  change  tha  c.a.  't  to  a  common  *> 
<•  value  if  desired,  or,  in  tha  case  of  a  trend,  they  mag  be  left  as  is.  *> 
<*  a> 
<*aaaaaa**a*aaaaaa**********a«a*»«»aaaa*aaa*«aa«a«a«a*a**a«a**aaa«a«««a««aa> 
procedure  CONSISOHECK < c  :  char;var  chogsa  :  integer; var  tab  :  tarrag); 


var 

dummgchar  :  char; 
vail  i  :  integer; 
dumatt,  dumscale  ;  attribute; 
begin 

if  c  •  'g  '  than 
begin 

dumatt  attribute!; 

dumscale  attlscala; 

and 

also 

begin 

dumatt  attributa2) 

dumscale  : »  att2scalb; 
and; 

HOME_N_CLEARj 
for  i  : •  1  to  S  do 
uir  i  ta  In; 

uritalni'  In  terms  of  tha  ('.attlscala,  ',  ',att2scala,  ')  outcome,  since  '); 
u;rita<'gaur  responses  for  ',  dumatt,  '  all  fall  within  '); 
writalni'S  percent  of  tha  average,  '); 

wr i to  In ( 'p 1  ease  carefully  reconsider  your  previous  answers.  You  will'); 
wr i ta In ( 'need  to  determine  if  the  attribute  values  should  be  changed  to  a'); 
wr i to  In ( 'c ommon  value,  and  if  so,  which  one  (NEXT  SCREEN)'); 
for  i  : •  1  to  10  do 
wr  1  to  In; 

write('Hlt  any  keg  followed  by  return  to  continue:  '); 
read ln( dummgc  har ) ; 

HOME_N_CLEAR; 

DRAWCHECK(c,  tab); 

wr i ta  In (  'P 1  ease  enter  the  number  corresponding  to  your  choice.  '); 

wrlteln('  1)  Change  previous  answers  to  a  common  one.  '); 

writeln('  2)  Leave  answers  as  is.  '); 

wr ite( 'Choice:  ' ). 

readln(choyse); 

if  choyse  •  1  then 

beg  in 

wrlte('Uhat  value  would  you  like  to  change  it  to?:  '); 
read  In ( va 1  ) ; 
if  c  "  'y  '  then 
begin 

tab  Cl  1 .  ans  •  va  1 ; 
tab C21 . ans  -  va 1 , 
tab  C4 1  ans  •  va 1 ; 


Tww>n  JTVWJ  ^^.»nj^-wi^  »mn  wugMww  u»ii  wnyv-juvwvi  UBUBwrmr 
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tabC71. ans 

■ 

val; 

tabC91. ans 

a 

val; 

end 

else 

begin 

tab  C31 . ans 

■ 

val) 

tab  C31  ans 

■ 

val; 

tab  C&l . ans 

■ 

vai; 

tab  C8] . ans 

■ 

val; 

tab  C 101  ans 

■val 

tndi 


•  ndi 

•ndi  <CONSISCHECK> 


<»•«*«*«*«*««*«««««««««*•««•**•***«**•«***«**«*««***»*•*****«*•*»»*********> 
<*  *> 

<•  ASSESSINO  assaist*  uihich  ind«p«nd«nc*  properties  hold.  *> 

<*  *> 

<»•*•«***********««••*•*••**«**•«**••*»**«***«*«»«*•**«*•*»«•«•«•«««*«•«**«> 


procedure  ASSESSIND< var  t  :  tarragli 
var 

choice  :  integeri 
wag  :  chari 

g_utind_i<  i_otind_g.  sddin4>  mutind  :  boolean; 
scaleg<  scalez  :  real; 
oeg  in 

g_otind_z  :  false; 
i_utind_g  :■  false; 
mutind  : >  false; 
addind  :•  false; 

if  ((tCll.ans  >  tCZl.ans)  and  (tC4].ans  tC71.ans)  and 
(tC91.ans  ■  tCll.ansl  and  <tC4J.ans  •  tCll.ans))  then 
g_utind_i  :  «  true; 


if  (  ( tC31.  ans  •  tCSl.ans)  and  (tt61.ans  >  tCSl.ans)  and 

(tClOl.ans  •  tC31.ans)  and  <tC61.ans  >  tC31.ans))  then 
i_utind_g  :»  true; 


if  not  g_utind_i  then 
begin 

if  not  TREND<tCll.  ans.  tCZl.ans.  t[41.ans.  tC71.ans.  tC91.ans) 
then 

CONSISCHECK(  'g choice,  t); 
if  choice  ■  1  then 
g_utind_i  :«  true; 

end ; 

if  not  i_ufrlnd_g  then 
begin 

if  not  TREND( tC31. ans.  tCSl. ans.  tt61.ans.  tCSl.ans.  tClOl  ans) 
then 

CONSISCHECKC  ' 1 '.  choice,  t); 
if  choice  “  1  then 
z_utind_g  :■  true; 

end ) 

if  (g_utind_i  and  i_utind_g)  then 
beg  in 
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Mutind  trust 
CHECKADDIND(t.  addind)t 
indi 

if  addind  than 

MUTORAOO( 'a '•  t<  ybi  yc<  te<  xb<  «calay>  tcalax> 

al*a 

if  mutind  than 

nUTORADDi 'm'>  t<  yb.  4C>  xc.  xb.  (calay.  scalax) 

alaa 

if  y_utind_x  or  x_otind_i|  than 
bagin 

if  g_otind_x  than 
wag  'g' 

aUa 

wag  ;■  'x'l 
UTINDlWAYCwag); 
and 

alsa 

BQTHDEP ( r ar un_ap  t i on )  i 
ENDORAPHICSi 
andJ  <ASSESSIND> 


<nAIN  PROORAM> 


bagin 

MEUCOMEi 

rarun.option  :■  St  <rarun  option  of  5  moans  first  tima  through> 
rastart:  <labai  for  ptaca  to  raturn  whan  rastarting> 

if  rorun_option  ■  2  than  <it  will  if  docompositien  of  rangas  is  naadad> 
EXPLAIN(go_on)i 

if  <go_on)  or  <raron_option  ■  1)  or  (raron_option  ■  5)  than 

<oithor  dacomposition  has  baan  aiplainod  and  tho  usar  wishas  to  continua  > 
<(go_on  is  trua))  or  tho  usar  wants  to  uso  diffarant  attributas  > 

<(rorun  option  is  l)i  or  this  is  tha  first  tima  through  (rarun  option  > 

<  is  9).  “  > 

bagin 

ATTRIBUTE8<attributol>  attributa2>  minimuml.  maiimumli  minimum2>  maximusQ)) 
DEVTABLEiattributal)  attributa2>  minimuml>  maiimuml>  minimusi2i  maximum2> 
lottabla)i 

L0TTERZE8(attributal>  attributa2>  minimuml^  maximuml.  minimum2>  maximum2. 
lottablo)! 

A88ES8IN0< lottablo)) 

<A88ES8IND  will  datormina  tha  indapondanca  propartias.  If  nono  aro  > 
<prasant>  tha  usar  will  ba  asbad  if  ha  wants  to  rodo  tha  program.  If  > 

<soi  rarun_option  will  ba  aithor  1  or  2.  > 

if  <rarun_option  ■  1)  or  (rarun_option  >  2)  than 
goto  rastart) 
and 

also 

if  not  go_on  than 
bagin 

BQTHDEP ( r or un_op t i on ) ) 

if  (rarun_option  ■  1)  or  <rarun_option  ■  2)  than 
goto  rastart) 
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■  SBTTL  H0I1E_N  CLEAR 
ESC  -  27 

HOMe_N_CLR  :  .BYTE  ESC 

.  BYTE  37 

.  BYTE  33 

.BYTE  49 

.BYTE  ESC 
.ASCII  'III  If' 

.BYTE  ESC 
■ASCII  'tOJ' 

.  BYTE  ESC 
.BYTE  37 
.BYTE  33 
.BYTE  48 

.P%CT  NONSHARED.OATA  LONO,  NOEXE.  PIC 
lO.CHAN  ;  .LON<9  0 

TT  ;  .ASCIO  'TT' 

1088  :  .  BLKO  1 

.PSECT  CODE  LONO.  PIC 

.  ENTRY  HOnE_N_CLEAR.  ^n<R2.  R3.  R4,  R9.  R6.  R7.  RS.  R9.  R10> 

•ASSIGN  S  CHAN  -  lO.CHAN.  DEVNAN  -  TT 
•OrlOW.S  CHAN  -  lO.CHAN. - 

FUNC  -  BIO*  URITEVBLK. - 
1088  >  lOSB. - 

PI  -  HONE  N  CLR. - 
P2  -  *18.  - 
P4  -  BO 

•DA88GN  S  CHAN  ■  10  CHAN 
RET 
.  END 


% 


ENI^ 
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